


RNO5/3/2RBGaZage PERF EXER GH SO7IR-MC Se. mw GTA 

















RMO5/3/2 PERF EXER 
CZRMUAO | 


RM05/3/2 


FICHE 2 oF 2 eres, Glallilall 





——_—_———eooooee eo eee lished 
8 1 
MACRO V03.01 11-APR-80 14:52:06 PAGE 1 


! 
i 
' 
' 
' 


CZRMUAQ RMOS/3/2 PERF EXER 


ee ee aed ed ed ed ed 


Mrnrnorenr 


-REM a 


PRODUCT CODE: 
PRODUCT NAME: 
DATE CREATED: 


MAINTAINER: 
AUTHOR : 


IDENTIFICATION 
AC~S069A-MC 

CZRMUAO RMOS/3/2 PERFORMANCE EXERCISER 
APRIL 1980 

CX DIAGNOSTIC GROUP 

MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT ONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOF TWARE + et ee IN = 
UNDER A LICENSE FOR USE ON A 


IS DOCUMENT IS FURNISHED TO THE PURCHASER 
s E COMPUTER SYSTEM AND CAN BE COPIED 


INGL 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE ®8E PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
rw OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1980 DIGITAL EQUIPMENT CORPORATION 


SEQ 0001 


C 1 
CZRMUAO RMOS/3/2 PERF EXER MACRO VO3.01 11-APR-80 14:52:06 PAGE 2 
SEQ 0002 


CONTENTS 


1. ABSTRACT 
. 1.1 GENERAL NOTES 
2. REQUIREMENTS 
2-1 EQUIPMENT 
23 fe PRELIMINARY PROGRAMS 
3. OPERATING THE PROGRAM 


NN 3 2 
NSSRONAARWN=SoMNOURWR 


3.1 LOADING THE PROGRAM 
3.2 STAR ING THE PROGRAM 
3.3 RESTARTING THE PROGRAM 
3.4 PROGRAM CONTROL 
3.5 PASS/TEST TERMINATION 
22 3.5.1 PASS TERMINATION 
23 3.5.2 TEST TERMINATION 
24 3.6 RUN_TIME 
25 3.6.1 DATA TRANSFER MODE 
26 3.6.2 SEEK VERIFICATION MODE 
27 3.7 UNIBUS ee VECTOR ADDRESSES 
28 3.8 DUAL PORT OPERATION 
29 3.9 APT 
e 3.10 APT ENVIRONMENTAL TABLE DEFINITIONS 
+ 4. CONTROLLING THE PROGRAM 
54 4.1 DATE & OPERATOR IDENTIFICATION 
35 4.2 PARAMETERS 
36 4. PROGRAM CONTROL PARAMETERS 
37 4.2.2 PERIPHERIAL DEVICE ADDRESSES 
38 4.2.3 PARAMETERS FOR THE FIRST OPERATION 
39 4.3 SWITCH REGISTER SETTINGS 
40 4.4 KEYBOARD C Ss 
41 4.4.1 ‘T' 
42 22-6 *p’ 
43 4.4.5 ‘S* 
44 4.4.4 ‘Ww! 
45 4.4.5 ‘'R' 
46 4.4.6 ‘WT* COMMAND 
rf 4.4.7 GENERAL COMMAND INFORMATION 
r+ 5. PERFORMANCE SUMMARY TYPEOUT 
51 5.1 PERFORMANCE SUMMARY TYPEOUT EXPLANATION 
25 5.2 HARD/SOFT acer 
3 5.2.2 SOFT ERRORS 
56 6. DATA CHECKING & ERROR RECOVERY 





meee WT 
‘comm RMOS/3/2 "ERF EXER MACRO VO03.01 11=APR-80 14:52:06 PAGE 2-1 


58 6.1 DATA BUFFER COMPARISON 

59 6.2 VERIFICATION mat DATA WRITTEN 
60 6.35 SECTOR REFORMATTING 

o3 6.4 BAD ADDRESS FLAGGING 

4 7. ERROR MESSAGES 

65 7.1 ERROR DESCRIPTION LINES 

6 7.2 DETAIL ERROR LINES 

rr 4 8. PROGRAM DESCRIPTION 

70 8.1 HOW THE PROGRAM OPERATES 

71 8.2 DUAL PORT OPERATION 

72 8.3 HOW VARIABLES ARE SELECTED FOR EACH OPERATION 
73 8.4 DATA. PATTERNS 

rs 

76 9. RM SOFTWARE DRIVER DOCUMENT 


SEQ 0003 


“CZRMUAO RMOS/3/2 PERF EXER 





nonony ee ss a es a = 2 
Wh) PS 00 NAAR WUD ODNAUA WR 


24 





E 1 
MACRO VO3.01 11-APR~80 14:52:06 PAGE 3 


Re 


ABSTRACT 


ay RMOS/3/2 PERFORMANCE EXERCISER PROGRAM IS DESIGNED TO PERFORM 
AN INTERACTIVE TEST ON RM DISK DRIVES CONNECTED TO A MASSBUS 
he wt THE DRIVES MAY BE CONTROLLED BY EITHER AN RH11 


THE DISK DRIVES ON THE SUBSYSTEM, THE PROGRAM IS IN Le BE 
USED TO VERIFY THAT THE DRIVES UNDER TEST ARE PERFORMING TO THEIR 
DATA ERROR RATE AND SEEK ERROR RATE (SEE ERROR RATE SPECIFICATIONS) . 


THE PERFORMANCE EXERCISER PROGRAM WILL fog tte DRIVES CONNECTED 
AS EITHER SINGLE OR DUAL PORT UNITS. DUAL PORT DRIVES ARE TESTED 
BY LOADING AND RUNNING THE PROGRAM FROM BOTH CONTROLLING SYSTEMS. 
pont satves WILL EXERCISE A MIXED SYSTEM OF DUAL PORT AND SINGLE 


TO OBTAIN INTERACTIVE TESTING, OPERATIONS ON THE DRIVES ARE OVERLAPPED 
(OTHER DRIVES ARE PERFORMING SEEK/SEARCH OPERATIONS WHILE os 

DRIVE IS PERFORMING A ae TRANSFER OR WRITE CHECK OPERATION 

OPERATIONS AMONG THE DRIVES ARE OPTIMIZED SO THAT A HIGH Sus YSTEM DATA 
TRANSFER RATE OR A HIGH POSITIONING OPERATION RATE. IS MAINTAINED. 


THE PERFORMANCE OF EACH DRIVE IS MONITORED BY THE PROGRAM. IF 
DRIVE EXCEEDS A PRESET NUMBER OF ERRORS IN ANY OF SEVERAL CATEGORIES, 
THAT DRIVE IS AUTOMATICALLY or? pee (THE OPERATOR MAY OVERRIDE 
THE AUTOMATIC DEASSIGNMENT FEATURE.) THE PROGRAM REPORTS PERFORMANCE 
STATISTICS FOR EACH DRIVE BEING EXERCISED ON REQUEST FROM THE 
OPERATOR OR AUTOMATICALLY AT AN INTERVAL DETERMINED BY THE OPERATOR. 


L DATA TRANSFER COMMANDS ARE USED (1.E., WRITE DATA, WRITE HEADER 
2 DATA, READ DATA, AND READ HEADER & DATA) AS WELL AS WRITE CHE CK 


AND 
READ-IN PRESET COMMANDS ARE USED AT STARTUP AND DRIVE INITIALIZATION. 
RECALIBRATE, OFFSET, AND RETURN-TO-CENTERLINE COMMANDS ARE USED 
DURING ERROR RECOVERY. 


THE DATA TRANSFER COMMANDS ARE SELECTED ena EXCEPT FOR THE 
WRITE CHECK COMMANDS. THE WRITE CHECK C S ARE USED TO VERIFY 
A PREVIOUS WRITE OPERATION. THUS, WHEN CR URIT WRITE COMMAND IS SELECTED, 
Moyne WRITTEN IS VERIFIED BY THE APPROPRIATE WRITE CHECK 


DEPENDING UPON WHETHER PROGRAM HAS BEEN LOADED VIA APT AUTOMATIC 
MODE OR APT DUMP MODE WILL DETERMINE WHETHER; PROGRAM/OPERATOR 

COMMUNICATIONS ARE THROUGH THE KEYBOARD, DYNAMIC PROGRAM OPTIONS 
oe rie For ETee SWITCH REGISTER SETTINGS AND ERRORS ARE REPORTED 


ALL ret DATA PATTERNS, AND DATA eres SIZES ARE SELECTED 
RANDOMLY BY THE PROGRAM. ADDITIONALLY THE ADDRESSES (EG, CYLINDER, 
TRACK, AND SECTOR) FOR EACH OPERATION ARE SELECTED RANDOMLY. 

GENERAL NOTES 


A. IN REFERENCE TO NUMBERS. TO INDICATE THE BASE OF A NUMBER 
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| SEQ 0005 
58 LARGER THAN SEVEN. A PERIOD(.) WILL FOLLOW THE NUMBER TO 
59 ; INDICATE DECIMAL OR_NO PERIOD WILL FOLLOW THE NUMBER TO 
| 60 INDICATE OCTAL. IF THE NUMBER OCCURS AT THE END OF 
61 A SENTENCE, A DOUBLE PERIOD(..) INDICATES DECIMAL AND A 
| 62 SINGLE PERIOD(.) INDICATES OCTAL. ALSO, ANY REFERENCES. TO 
o TIME ARE ALWAYS IN DECIMAL. 
| & 
66 2. REQUIREMENTS 
67 i naiienimedianieetnntnetininaninadael 
68 
| 14 2.1 EQUIPMENT 
71 PDP=11 PROCESSOR 
72 16K MEMORY (20K IF THE PROGRAM IS INCLUDED IN AN ‘XXDP* CHAIN) 
73 KW11-L OR KW11-P CLOCK 
7%4 PROGRAM LOADING DEVICE 
75 TERMINAL 
76 RH11 OR RH70 CONTROLLER 
aa 1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS'S, RMO3'S OR RMO2'S) 
je 2.é MEDIA 
81 THE PERFORMANCE EXERCISER PROGRAM REQUIRES FORMATTED DISK 
82 PACKS GENERATED BY THE RMOS/3/2_FORMATTER PROGRAM \CZRML-). 
83 THE PACKS MUST BE FORMATTED IN 32 SECTOR (16 BIT) MODE; THE 
Be ALTERNATE (30 SECTOR - 18 BIT ) MODE IS NOT SUPPORTTED. 
3 2.3 PRELIMINARY PROGRAMS 
= RMO5/3/2 DISKLESS DIAGNOSTIC, PART 1 & 2 
= RMO5/3/2 FUNCTIONAL TEST, PART 1, 2 & 3 
92 
a 3. OPERATING PROCEDURE 
95 
4 3.1 LOADING 
= 4 THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 
100 «PAPER TAPE, USING THE STANDARD PAPER TAPE PROCEDURE 
4 -XXDP MEDIA, USING ANY XXDP DEVICE 
in 3.2 START ING 
<4 THE PROGRAM STARTS AT LOCATION 200 
107 THE PROGRAM WRITES A DATA PATTERN TO ALL ON-LINE DRIVES IN A 
108 pe SEEK MODE. UPON COMPLETION OF THE WRITE, THE 
+4 PROGRAM GOES INTO A RANDOM TESTING MODE. 
111 NOTE: PARAMETERS NOT INCLUDED _IN THE TELETYPE DIAGLOGUE GROUP 
iN¢ MUST BE CHANGED BEFORE THE PROGRAM IS STARTED. 
114 3.3 START THE PROGRAM AT LOCATION 204 IF THE RH11 OR THE RH7O IS 
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3.4 


3.5 


3.5.1 


3.5.2 


NOT AT THE DESIRED ADDRESS. (DEFAULT IS 176700) 


PROVIDED THE PROGRAM HAS — LOADED AND STARTED VIA THE APT DUMP 
MODE OR THE DIAGNOSTIC IS RUNNING IN STAND ALONE PROCESSOR/DRIVE 
OPERATIONS ARE INITIATED AND CONTROLL BY KEYBOARD COMMANDS AND 
SWITCH REGISTER SWITCH SETTINGS. IF THIS IS THE PROGRAM'S FIRST START, 
THE STATUS OF THE DRIVES ON THE SELECTED MASSBUS SUBSYSTEM WILL BE 
TYPED OUT. ON a STARTS, THIS TYPEOUT MAY BE INHIBITED 

BY SETTING SW<O02>= 1. 


HOWEVER, IF THE PROGRAM IS |LOADED VIA APT SCRIPT MODE ALL SETUP 

AND SWITCH REGISTER SETTINGS WILL BE PROVIDED THROUGH THE APT E TABLE. 
TYPEOUTS FROM THE USER DIAGNOSTIC MAY OR MAYNOT BE INHIBITED 

ae atin te WHETHER OR NOT THE APPROPRIATE BIT IN THE E TABLE 


PASS/TEST TERMINATION 


A_PASS IN RANDOM *T* COMMAND MODE OR SEQUENTIAL ‘T* COMMAND MODE IS 
DETERMINED BY EITHER BITS READ OR SEEKS PERFORMED. THE NUMBER OF BITS 
OR SEEKS REQUIRED FOR A PASS IS DERIVED FROM EITHER THE SOFT ERROR 
RATE SPECIFICATION OR THE SEEK ERROR RATE SPECIFICATION. 


THE SPECIFICATIONS FOR THE RM waite SPECIFY NO MORE THAN 1 SOFT ERROR 
(NON~PACK RELATED) IN 1 X 10*9 BITS READ OR NO MORE THAN 1 SEEK ERROR 
IN 1 X_10*6 SEEKS. THE NUMBER OF BITS OR SEEKS DETERMINING A PASS 
WERE SELECTED TO PROVIDE A 90% CONFIDENCE LEVEL THAT THE DRIVE IS 
PERFORMING TO THE APPLICABLE SPECIFICATION. 


PASS IN ‘W* OR 'R* COMMAND MODE IS RELATED TO THE MAXIMUM DISK 
ADDRESS LIMITS SETUP BY THE USER. 


PASS TERMINATION 


END OF PASS FOR A SINGLE DRIVE IN THE RANDOM 'T* COMMAND MODE OR 
ey epls Y *T" COMMAND MODE, IS DETERMINED BY ONE OF THE FOLLOWING 


A. IF cree "ENDING’ IS 1, END OF ae pate WHEN THE DRIVE 
HAS READ 1 875 X 10°8 WORDS (3 xX 10*9 BITS). 

B. IF PARAMETER * ENDING" IS 0, — OF PASS ‘OCCURS WHEN THE DRIVE 
HAS PERFORMED 3 X 10*6 SEEKS 


END OF PASS FOR A SINGLE DRIVE IN ‘W* OR 'R' COMMAND MODE, IS 
DETERMINED AS FOLLOWS. 


A. WHEN A SEQUENTIAL SEEK IS MADE BEYOND THE MAXIUM DISK ADDRESS LIMITS 


SET BY THE USER, THE PASS IS CONSIDERED ENDED. 
TEST TERMINATION 
IF SWO4 IS CLEAR, THE TEST FOR A DRIVE IS TERMINATED WHEN: 
A. ey Phang ba “asteeee THE NUMBER OF PASSES SPECIFIED IN 
B. THE TOTAL ERRORS ACCUMULATED EXCEED 100.. 
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C. A FATAL ERROR OCCURS: EM12 OR EM14. 
D. OPERATOR DEASSIGNS THE DRIVE 


3.6 RUN TIME 
THE EXERCISER PROGRAM MAY BE RUN IN TWO MODES. THE MODE IS 
Vg BY THE VALUE . Rage ty “SSZE*. IF *SIZE° ONE 
SECTOR, THE PROGRAM RUNS I tans i HEAVY MODE; IF ‘SIZE* APPROACHES 


1/2 TRACK IN 1 (4096. WORDS) THE PROGRAM RUNS IN A DATA TRANSFER 
HEAVY MODE. THE PROGRAM RUN TIME VARIES GREATLY DEPENDING ON 


3.6.1 DATA TRANSFER MODE 
1 DRIVE = APPROX. 3.6 HRS (TO REACH 1.875 X 10*8 WORDS) 
TO 
8 DRIVES - APPROX. 16 HRS (FOR ALL DRIVES TO REACH 1.875 X 10*8 WORDS) 
NOTE: IF THE PROGRAM IS RUN WITH BOTH SW<00> AND Sw<01> 
SET, THE RUN TIMES SHOULD BE ABOUT 20% FASTER. 
3.6.2 SEEK VERIFICATION MODE 
PARAMETER Mt 1 = SMINTRK® (256 WORDS) 


K' 
PARAMETER "MAXSEC’ = ‘MINSEC' 
SW<00> = 1 (READ ONLY MODE) 


1 DRIVE - APPROXIMATELY 25 HRS (3 X 10*6 SEEKS) 


i a i i kk a kd a td td a od ts es 
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TO 
8 DRIVES - APPROXIMATELY 40 HRS (3 X 10*6 SEEKS FOR ALL DRIVES) 

311 3.7 UNIBUS & VECTOR ADDRESSES 
212 THE PROGRAM ASSUMES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES. (REFER 
tt TO SECTION 4.2.2 FOR THE LOCATIONS AT WHICH TO CHANGE THESE ADDRESSES.) 
315 UNIBUS VECTOR 
$1$ UNIT ADDRESS ADDRESS 
218 
219 RH11 OR RH70 _—«w-176700 254 
221 TTY PRINTER 177564 NOT USED 
225 TTY KEYBOARD 177560 60 
225 KW11=L 177546 100 

o 
227 kKW11-P 172542 104 
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3.8 DUAL PORT OPERATION 
A. LOAD THE PERFORMANCE EXERCISER PROGRAM INTO BOTH PROCESSORS. 


B. SWITCH THE ‘CONTROLLER SELECT’ SWITCH TO ‘A/B' ON EACH DRIVE 
WHICH IS TO BE TESTED AS A DUAL PORT DRIVE AND CYCLE THE DRIVES UP. 


C. START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM AS THOUGH 
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER. 


3.9 APT 


THIS PROGRAM IS APT COMPATIBLE TO THE EXTENT THAT APT HOOKS W 
BE IN THE PROGRAM AND WILL WORK THRU THE ‘OPTION INTERFACE’. 


FOR OTHER INTERFACES,APT MAY ONLY LOAD AND START THE PROGRAM. 
I.E. LOAD AND DUMP MODE. 


AUTOMATIC MODE (MONITOR) 
1. THE INPUT DIALOGUE IS BYPASSED. 
2. wai AND CONTROLLER INTERRUPT VECTOR IS 
DUMP MODE: INPUT DIALOGUE AFTER PROGRAM STARTS 
3.10 APT ETABLE DEFINITIONS 
THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT 
ENVIRONMENTAL TABLE (ETABLE) Prnies,, VIA RUNNING 
THE APT UTILITY PROGRAM ' ‘TSP 
1. SOFTWARE ENVIRONMENT: 


1 IF APT SCRIPT MODE 
0 IF STANDLONE MODE 


2. ENVIRONMENT MODE: 


BIT 7 = 1 ETABLE DOES SIZING 
= 0 PROGRAM DOES SIZING 

BIT 6 = 1 aote MESSAGES be fg! IF SCRIPT MODE 
= 0 DON'T SPOOL TO AP 

BIT 5 = 1 SUPPRESS CONSOLE OUTPUT 
= 0 ALLOW CONSOLE OUTPUT 


BIT 4 TO BIT O ARE NOT USED 

3. SWITCH 1 (SOFTWARE SWITCH REGISTER) 
IF ENVIRONMENT MODE BIT 7 (SIZING BIT ) IS SET TO 1, 
THE SOFTWARE SWITCH REGISTER WILL BE USED, INSTEAD 
OF THE HARDWARE CONSOLE SWITCH REGISTER. 


4. SWITCH 2 (USER SWITCH REGISTER) 
NOT USED 
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5. 


6. 


7. 


9. 


10. 


1 


12. 


13. 


14, 


CPU OPTIONS 
NOT USED 

MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES 
NOT USED 

INTERRUPT VECTOR 1: 


USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT = 254 


BUS PRIORITY 1: 
NOT USED. 


INTERRUPT VECTOR 2: 
NOT USED 

BUS PRIORITY 2: 
NOT USED 


- BASE ADDRESS: 
USED WHEN ENVIRONMENT MODE BIT 7 = 1;DEFAULT 


DEVICE MAP: 
NOT USED 


176700 


CONTROLLER DESCRIPTOR WORDS: 
NOT USED 


CONTROLLER DESCRIPTOR WORDS: 
NOT USED 


CONTROLLING THE PROGRAM 


THE FOLLOWING gar CONVENTIONS ARE USED BY THE KEYBOARD ENTRY 
ROUTINES IN THE PROGRAM: 


A. 


D. 


TO DELETE AN INCORRECT CHARACTER FROM AN ENTRY STRING, TYPE A 
Ma ag PA A RUBOUT WILL DELETE SUCESSIVE CHARACTERS 


TO DELETE AN ENTIRE LINE, TYPE A ‘CONTROL U’ (“U). 


- ENTRY MUST BE TERMINATED BY EITHER A ‘CARRIAGE RETURN’ OR 

A ‘PERIOD’. THE ‘PERIOD’ TERMINATION IS RECOGNIZED BY THE 
PROGRAM AS A DEFAULT ENTRY REQUEST. WHEN A ae IS_TERMINATED 
BY A ‘PERIOD’ INSTEAD OF A ‘CARRIAGE RETURN’, PROGRAM WILL 
ACCEPT THE ENTERED VALUE AND WILL DEFAULT TO’ THE PRELOADED VALUES 
FOR ANY REMAINING ENTRIES. 


IF A ‘CONTROL C' IS TYPED DURING KEYBOARD ENTRY, THE PROGRAM 
WILL RETURN TO THE BEGINNING OF THE GROUP BEING ENTERED. 


DATE & OPERATOR IDENTIFICATION 





SEQ 0009 
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ASSUMING THE goog HAS BEEN LOADED BY ANY OTHER MODE OTHER THAN 
THE APT SCRIPT MODE THE PROGRAM WHEN IT IS INITIALLY STARTED, WILL 

ASK FOR DATE AND OPERATOR I.D. ENTRIES. (THE REQUEST FOR THESE ENTRIES 
OCCURS ONLY WHEN THE PROGRAM IS FIRST STARTED AND WILL NOT APPEAR 

WHEN THE PROGRAM IS RESTARTED.) THESE ENTRIES ARE OPTIONAL AND MAY 

BE BYPASSED BY ENTERING A we GE RETURN’ IN RESPONSE TO THE 

REQUEST. THE PROGRAM DOES NOT EDIT OR CHECK EITHER ENTRY. UP TO 

8 CHARACTERS OF DATE INFORMAT ION AND UP_TO 6 CHARACTER 
IDENTIFICATION MAY BE ENTERED. BOTH THE DATE AND THE OPERAT 

WILL BE TYPED WHEN THE *SA‘ COMMAND IS PREFORMED (SEE SECTION 4. os s). 


PARAMETERS 


WHEN THE PROGRAM IS STARTED FROM LOCATION 204, THE OPERATOR WILL BE 
ASKED TO ENTER PARAMETERS. THE FOLLOWING MESSAGE WILL BE DISPLAYED: 


CHANGE PARAMETERS ? 


THE OPERATOR MUST ENTER A ‘Y' IF PARAMETER tg ARE TO BE MADE. 
ANY OTHER CHARACTER IS ACCEPTED AS A ‘NO’ ENTRY. THE PROGRAM WILL 
IDENTIFY THE PARAMETER BY THE NAME se BELOW. “DISPLAY THE CURRENT 
VALUE OF THE PARAMETER AND WAIT FOR THE ENTRY. THE PROGRAM WILL 
TYPE ‘INVALID ENTRY’ IF THE ENTRY IS NOT CORRECT AND WAIT FOR A 
CORRECT ENTRY TO BE TYPED. 


NOTE: WHEN THE DIAGNOSTIC IS LOADED VIA APT SCRIPT MODE ALL PARAMETERS 
ARE LOADED FROM THE APT SYSTEM E TABLE. — INCLUDES THE 
SOFTWARE SWITCH REGISTER. go tye A WORST CASE CONDITION 
WILL BE SET IN THE E TABLE FOR NORMAL AUTOMATIC OPERATION. 

KEYBOARD ENTRY PARAMETERS 


DEFAULT VALUE 





NAME BASE VALUE _ RANGE FUNCTION 
SIZE 10 (SEE NOTE) CONTROLS THE MAXIMUM BUFFER 
SIZE USED FOR DATA TRANSFERS 
PASSES 10 1 1 = 999. a OF PASSES TO END OF 
MINUTE 10 120 0 - 256. DETERMINES THE INTERVAL (IN 
MINUTES) BETWEEN AUTOMATIC 
PERFORMANCE S$ 
ERRORS PRINTED OUT IF SW<07>=0 
RANDOM 8 000000 0 OR 1 IF PARAMETER = 0, THE DATA 
T FER WORD COUNT IS RANDOMLY 
SELECTED BETWEEN 4 AND 
VALUE_IN : 


BE 
END ING 8 000001 0 OR 1 IF PARAMETER = 1, END OF PASS 





SEQ 0010 
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4.2.2 


IF PARAMETER = 0, END OF PASS 
ag Sere BY THE NUMBER 


FORMAT 8 000001 0 OR 1 IF PARAMETER = 0; DO NO 
PERFORM WRITE HEADER & DATA 
ORDERS; IF PARAMETER > 0, 
PERF ORM WRITE HEADER Q DATA 

RATIO 8 000003 0-7 CONTROLS THE APPROXIMATE 
lb Rag READ TO WRITE 


VALUE R/W RATIO 


MESSAGE 8 000001 0 OR 1 IF PARAMETER = 1, DO NOT PRINT 
ERROR MESSAGES FOR DATA ERRORS 
OCCURING Ai LOCATIONS DEF INED 
BY THE OPERATOR AS BAD PACK 
LOCATION. 
IF PARAMETER = 0, PRINT ERROR 
MESSAGES ASSOCIATED WITH BAD 

. PACK LOCATIONS. 


PATTERN 10 000000 0 =< 15. IF PARAMETER=0,DATA 
PATTERN IS RANDOMLY 
SELECTED. 


IF PARAMETER>O, SPECIFIES 

ONE OF THE 15 PATTERNS. 

THE SELECTED DATA PATTERN 

Ag TOInleP BY THE PARAMETER 
HEADER 8 000001 0 OR 1 IF PARAMETER=0,RANDOM 

DATA BLOCK ADDRESS IS 

i *T* COMMAND 


PARAME TER=1 , SEQUENT IAL 
DATA BLOCK IS USED IN 
*T' COMMAND 


NOTE: THE PROGRAM WILL SELECT A MAXIMUM BUFFER SIZE WHICH 
IS_DETERMINED BY 3 MEMORY AVAILABLE. THE MAXIMUM BUFFER 
SIZE ASSIGNED BY THE PROGRAM IS 8192.(ONE TRACK) WORDS. THE 
OPERATOR MAY SPECIFIY ANY OTHER MAXIMUM SIZE AS ‘' .& THE 
VALUE SPECIFIED IS AT LEAST 4 WORDS BUT NO LARGER 
THE INITIAL VALUE OF "MAXDL" DETERMINED BY THE PROGRAM. 


PERIPHERAL ADDRESSES AND OTHER LOCATIONS OF INTEREST 


TO ALTER THESE LOCATIONS, THE OPERATOR MUST MAKE MANUAL ENTRIES 
BEFORE THE PROGRAM IS STARTED. THE KEYBOARD ENTRY ROUTINE DOES 


SEQ 0011 


M1 
CZRMUAO RMOS/3/2 PERF EXER MACRO VO3.01 11=APR=-80 14:52:06 PAGE 3-8 


q 
| SEQ 0012 
| 637 NOT PROVIDE ACCESS TO THESE LOCATIONS. 
459 LOC TAG CONTENTS FUNCTION 
re —_—— rem a ee ee oo Se we See 
| 462 1160 $TKS 177560 TTY KEYBOARD STATUS REGISTER 
463 1162 $TKB 17736¢ TTY KEYBOARD BUFFER REGISTER 
464 1164 $TPS 77564 TTY PRINTER STATUS REGISTER 
465 1166 $TPB 197206 TTY PRINTER BUFFER REGISTER 
466 1274 $LKCSR 172540 ADDRESS OF KW11-P STATUS REGISTER 
467 1276 = SLKCSB_s 172542 ADDRESS OF KW11=P COUNTER BUFFER 
468 1300 SLPVEC 104 KW11-P VECTOR ADDRESS 
469 1302 $LKS 177546 ADDRESS OF KW11-L STATUS REGISTER 
470 1304 $LLVEC 100 KW11=-L VECTOR ADDRESS 
471 1312 HZ 74 74 (60 DECIMAL) IF SYSTEM IS 60 HZ: 
472 62 (50 DECIMAL) IF SYSTEM IS 50 HZ. 
474 THE RH11-RH70 ADDRESS AND VECTOR may BE CHANGED WHEN THE PROGRAM 
475 Is STARTED FROM LOCATION 204 OR IF THE PROGRAM DOES NOT RECEIVE 
476 A RESPONSE WHEN IT ACCESSES THE DEFAULT RH11-RH70 ADDRESS. 
478 4.2.3 PARAMETERS FOR THE FIRST OPERATION 
480 THE FOLLOWING PARAMETERS ARE USED FOR THE INITIAL OPERATION (IN 
<1 ADDITION TO THE ‘MINIMUM’ ADDRESS VALUES). 
483 INITIAL VALUE 
$8 LOC TAG VALUE RANGE FUNCTION 
486 
487 1514 BEGPAT 10 {= 8 THE CODE FOR THE STARTING 
488 ; PATTERN. CIF A WRITE ORDER 
489 OR A WRITE CHECK ORDER Is 
490 SPECIFIED IN ‘BEGC 
491 1516  BEGCOD 5 0-5 THE INITIAL come FOR EACH DRIVE 
492 EXERCISED. 
493 0 = WRITE CHECK DATA 
49% 1 = WRITE CHECK HEADER & DATA 
495 2 = WRITE DATA 
496 3 = WRITE HEADER & DATA 
497 4 = READ DATA 
498 5 = READ HEADER & DAT | 
499 1520 BEGSIZ 402 2 - SIZE THE BUFFER SIZE FOR THE FIRST 
200 DATA TRANSFER OPERATION. 
| 
202 4.3 SWITCH REGISTER SETTINGS | 
504 SW <15> = 1 HALT ON ERROR | 
505 SW <13> = 1 INHIBIT ERROR TYPEOUT 
506 SW <10> = 1 RING THE TELETYPE BELL IF ERROR 
507 SW <7> = 1 DISPLAY ALL DATA COMPARE ERR 
508 SW <6> = 1 DO NOT ALTER THE CURRENT SPERATION PARAMETERS 
509 Sw <5> = 1 PARTIAL REGISTER DISPLAY IF ERROR: DO NOT DISPLAY 
510 ECC CORRECTION RESULTS 
$11 SW <4> =1 INHIBIT MAXIMUM ERROR COUNT CHECK: DO NOT DEASSIGN 
$12 DRIVES WHEN END OF TEST IS REAC HED. 
$13 SW <3> =1 DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPTS) 





- 
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SEQ 0013 
514 IF ‘DCK', "DTE*, OR "WCF* ERRORS OR AFTER THE 28TH 
$15 RETRY IF “ UNCORRECTABLE "DCK' ERROR. 
516 IF F DAT A COMPARE ERRORS & SW<7> SET. DISPLAY REST 
| 518 SW <2> =1 TNH eit SUBSYSTEM STATUS TYPEOUT DURING STARTUP. 
519 INHIBIT PERFORMANCE REPORT AFTER SPECIFIED TIME 
520 SW <I> =1 INHIBIT DATA COMPARSION AFTER READ ORDERS 
321 SW <0> =1 READ ONLY MODE 
523 IF THE PROGRAM IS BEING RUN ON i SWITCHLESS PROCESSOR (I.E. AN 11/34) 
524 THE PROGRAM WILL DETERMINE | THE HARDWARE SWITCH REGISTER IS 
525 NOT PRESENT AND WILL USE A 1 SOF TUARE SWITCH REGISTER. THE 
"SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176. THE 
527 SETTINGS OF THE "SOFTWARE SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
528 ROUTINE WHICH IS CALLED BY TYPING A "CONTROL G'. THE PROGRAM WILL 
529 RECOGNIZE THE *CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM IS 
530 N KEYBOARD ENTRY MODE, OR IS AT A HIGHER PRIORITY PROCESSING AN 
531 ORIVE INTERRUPT. THE ‘SOFTWARE’ SWITCH VALUES ARE ENTERED 
532 S AN OCTAL NUMBER IN RESPONSE TO THE PROMPT FROM THE SWITCH 
335 ENTRY ROUT INE : 
535 "SWR = NNNNNN NEW =' 
537 EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH REGISTER 
_ 538 IMAGE MUST BE ENT'RED. LEADING ZEROS ARF NOT REQUIRED. "RUBOUT' 
539 "CONTROL U' FUNCTIONS MAY BE USED 10 CORRECT TYPING ERRORS 
240 DURING SWITCH ENTRY. 
542 ON PROCESSORS WITH HARDWARE SWITCH REGISTERS. THE SOFTWARE’ SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
544 "UP’ POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
545 "SOFTWARE’ REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
246 BE FOLLOWED. 
548 if KEYBOARD COMMANDS 
550 NOTE: ALL KEYBOARD COMMANDS WILL BE DISABLED IF DIAGNOSTIC IS 
351 RUNNING IN THE APT SCRIPT MODE. 
553 THROUGH THE {KEYBOARD COMMANDS, THE OPERATOR MAY ASSIGN, DRIVES 
554 FOR TEST ('T* COMMAND), WRITE AND CHECK DATA PACKS ("W' COMMAND), 
555 PERFORM WRITE DATA AND FOLLOWED BY TEST ("WT* COMMAND ), 
556 PERFORM A SEQUENTIAL READ OF A PACI. (*R* COMMAND), REQUEST A DRIVE 
557 PERFORMANCE SUMMARY ('S* COMMAND), OR DEASSIGN A DRIVE WHICH IS 
358 BEING TESTED, READING, OR WRITING ('D' COMMAND). 
560 IF THE START ADDRESS WAS 204, THE FOLLOWING MESSAGE WILL BE TYPED 
361 AFTER THE PROGRAM HAS BEEN INITIALIZED. 
563 "PROGRAM INITIALIZATION COMPLETE 
304 "TYPE A CONTROL C TO ENTER COMMANDS’ 
| 566 KEYBOARD ENTRIES WILL NOT BE RECOGNIZED UNTIL THE OPERATOR TYPES 
| 567 A ‘CONTROL C'. WHEN THE PROGRAM SEES A ‘CONTROL C' ENTRY, IT WILL 
| 368 SUSPEND THE SCHEDULING OF FURTHER DEVICE OPERATIONS AND WAIT UNTIL 
| 569 ALL OUTSTANDING ORDERS HAVE TERMINATED. THE PROGRAM WILL ENTER 
| 


570 COMMAND ENTRY MODE AND TYPE THE FOLLOWING PROMPTING MESSAGE : 


—_—_—- — eee ————— 
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THE PROGRAM WILL THEN ASK FOR A DRIVE IDENTIFICATION NUMBER WITH THE 
FOLLOWING TYPEOUT: 


"ENTER DRIVE 1.D.:° 


SEQ 0014 
i a 
a a *HH MM: SS 
373 | ‘ENTER COMMANDS: * 
| 575 THE PROGRAM yet THEN ACCEPT ANY OF THE VALID COMMANDS. AT THE 
576 ag OF A COMMAND, THE PROGRAM WILL EXIT COMMAND MODE; THE 
577 OPERATOR MUS” TYPE ANOTHER ‘CONTROL C° TO RETURN THE PROGRAM TO 
578 CORPAND MODE . THE COMMAND ENTERED SPECIFIED AN A‘ 
579 DRIVE NUMBER, THE PROGRAM WILL REMAIN IN COMMAND MODE UNTIL ALL 
oa AVAILABLE DRIVES HAVE BEEN PROCESSED. 
582 THE ‘WT', ‘T*, ‘W* AND ‘"R* COMM\WDS REQUIRE DRIVE I.D, ADDRESS LIMITS 
ray AND BAD LOCATION ADDRESS ENTRIES FOR THE DRIVE BEING REFEREN.ED. 
585 THE PROGRAM WILL FIRST TELL THE USER WHICH DRIVE IS BEING REFERENCED 
eae ‘ FOR CHANGES. 
rod wteeneenter DRIVE & N 


591 

592 

593 

595 THE OPERATOR MAY ENTER AN I.D. NUMBER FOR THE DRIVE OF UP TO 6 
596 CHARACTERS IN on THIS 1.D. WILL BE DISPLAYED, ALONG WITH THE 
597 DATE AND OPERATOR I.D. ENTRIES (SEE SECTION 4.1), WHEN THE 'SA* 
25 COMMAND IS EXECUTED. THE OPERATOR MAY ENTER ANY CHARACTER STRING, 
601 

60 


598 
TERMINATED BY A ‘CARRIAGE RETURN’, OR A ‘PERIOD’ ONLY (NULL ENTRY) 

600 IN RESPONSE TO THE I.D. REQUEST. 

2 THE PROGRAM WILL THEN ASK FOR ADDRESS LIMIT CHANGES WITH THE FOLLOWING 
eS TYPEOUT : 
re "ENTER ADDRESS LIMITS:* 
607 HE PROGRAM WILL REQUEST VALUES FOR THE FOLLOWING ADDRESS LIMIT 
608 PARAME TERS. 
609 
610 DEFAULT VALUE 
oN) NAME VALUE RANGE FUNCTION 
613 MINCYL 1) 0 - 822. THE MINIMUM CYLINDER ADDRESS 
614 MAXCYL 822.. 0 - 822. THE MAXIMUM CYLINDER ADDRESS 
615 MINTRK 0 0 - NN THE MINIMUM TRACK ADDRESS 
616 MAXTRK NN 0 - NN THE MAXIMUM TRACK ADDRESS 
617 MINSEC 0 0 - 31. THE MINIMUM SECTOR ADDRESS 
£19 MAXSEL 31. 0 - 31. THE MAXIMUM SECTOR ADDRESS 
oy WHERE "NN’ IS 4. FOR AN RMO3/02 AND 18. FOR AN RMOS. 
622 NOTE: = a THE *T* COMMAND IS SELECTED, THE MINIMUM CYLINDER, 
623 OR SECTOR ADDRESS MAY BE SPECIFIED AS BEING LARGER 
624 HAN. THE MAXIMUM ADDRESS. WHEN THESE VALUES ARE INVERTED, 
625 THe PROGRAM WILL SELECT eo BETWEEN THE "MAX ADDRESS 
626 AND THE UPPER PHYSICAL LIMIT 





ee Ce 


' 
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628 THE PROGRAM WILL THEN ASK FOR BAD SPOT ADDRESSES WITH THE FOLLOWING 
TYPEOUTS: 
"ENTER BAD SPOT ADDRESSES: * 


THIS ROUTINE ALLOWS THE USER TO MANUALLY ENTER THE BAD SECTORS INTO 
A BAD SECTOP TABLE FOR THAT PARTICULAR DRIVE. 


THE PROMPT USED TO ENTER THE CYLINDER ADDRESS IS AS FOLLOWS: 
"CYLNDR <-1/'° 

TO ENTER A BAD CYLINDER ADDRESS INTO THE BAD SPOT TABLE, TYPE ANY 

NUMBER FROM 0 = 822., FOLLOWED BY A <CR>. HOWEVER, TO ENTER ALL 

TRACKS/SECTORS ON THE CURRENT CYLINDER AS BEING BAD AND EXIT 


THE 
ROUTINE, JUST TYPE A NUMBER AS ABOVE, FOLLOWED BY Or a tak ) AND <CR>. 
Ny aan WITH NO ENTRY, TYPE A <CR> OR TYPE A PERIOD(.) FOLLOWED BY 


THE PROMPT USED TO ENTER THE TRACK ADDRESS 15 AS FOLLOWS: 

‘TRACK =-1/° 
TO ENTER THE BAD TRACK ADDRESS INTO a BAD SPOT TABLE, TYPE ANY 
NUMBER FROM LOWE 


WHERE NN’ IS 4 FOR AN RMO3/02 OR 18. FOR AN RMOS. 


THE PROMPT USED TO ENTER THE SECTOR ADDRESS IS AS FOLLOWS: 
"SECTOR -1 / ° 

TO ENTER THE BAD SECTOR ADDRESS INTO THE BAD SPOT TABLE, TYPE AN 

NUMBER FROM 0 - FOLLOWED BY A <CR>. TO ENTER ALL SECTORS ON 

THE PREVIOUSLY ENTERED CYLINDER/TRACK AS BEING BAD, JUST TYPE A 


PROMPT OR JUST TYPE A PERIOD(.) FOLLOWED BY A <CR>, WHICH WILL 
CAUSE YOU TO EXIT THE ROUTINE. 


i ¢€ 
631 
622 
633 
7A 
635 
637 
639 
641 
642 
643 
644 
645 
646 
647 
648 
649 
651 
652 
653 
655 
656 
657 EXIT THE ROUTINE. 
658 
659 
661 
663 
665 
667 
668 
670 
671 
672 
675 FOR MORE INFORMATION (SEE SECTIONS 6.3 AND 6.4) 
675 
676 
677 
678 
679 
681 
683 
684 


EXAMPLE #1 
CYLNDR -1 / <CR> zNO ENTRIES AND EXIT ROUTINE 
EXAMPLE #2 
-1 / 820<CR> sENTERED §20. AS — CYLINDER. 
-1 / 3<CR> sENTERED 3 AS BAD TRACK. 
-1 / 20.<CR> sENTERED 20. AS BAD SECTOR AND 
sEXIT ROUT] 





SEQ 0015 
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4.4.1 


4.4.2 


EXAMPLE 


EXAMPLE 


EXAMPLE 


EXAMPLE 


EXAMPLE 


#3 
CYLNDR 


*T* COMMAND 
ay AE A DRIVE(S) FOR A RANDOM TEST. THIS COMMAND IS REQUIRED 


FORMAT: 


= DRIVE NUMBER. 


TN<CR> 


“1 


TERMINIATED BY A 


EXAMPLE: 


NOTE: 


~nNN 


a 


~ S 


D2 
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820.<CR> 
=— 
.<CR> 


820<CR> 
<CR> 
~<CR> 


820<CR> 


820<CR> 
3<CR> 
.<CR> 


THE TEST OF THE DRIVE(S). 
COMMANDS OR SUPPORT COMMANDS. 


ENTERED 820. AS BAD CYLINDER. 
: INDICATE ALL TRACKS AND SECTORS 
7O0N THAT CYLINDER AS BEING BAD. 


EXIT ROUTINE 


:SAME AS EXAMPLE #3 


SAME AS EXAMPLE #3 


ENTERED 820. AS BAD CYLINDER. 
: INDICATE ALL TRACKS AS BEING BAD. 
SENTERED 20. AS BAD SECTOR. 


7EXIT ROUTINE 


ENTERED 820. AS BAD CYLINDER. 
sENTERED 3 AS BAD TRACK. 

: INDICATE ALL SECTORS OF THE ABOVE 
ZCYLINDER/TRACK AS BEING BAD AND 

sEXIT ROUTINE 


THE OTHER COMMANDS ARE CONVIENCE 


TO 7 OR ee ENTRY MUST BE 
CARRIAGE RETURN <CR>. 


TO<CR> = ASSIGN DRIVE 0 FOR TEST 
TA<CR> = ASSIGN ALL AVAILABLE DRIVES FOR TEST 


*D* COMMAND 
USED TO DEASSIGN A DRIVE(S) BEING EXERCISED. 


FORMAT: 


DN<CR> 





DRIVE OPERATION BEGINS IMMEDIATELY AFTER COMMAND IS ENTERED. 


SEQ 0016 


— 
j 
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| 
. a 
ee ae 
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N = DRIVE NUMBER. Y BE 0 TO 7 OR ‘A’, ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: DO<CR> = DEASSIGN DRIVE 0 
DA<®2> = DEASSIGN ALL DRIVES BEING TESTED. 


NOTES: 1. IF THE ‘D* COMMAND REFERENCES A 
DRIVE NOT ASSIGNED THE PROGRAM 
WILL TYPEOUT *?DRIVE NOT ASSIGNED‘ 


2. THE DRIVES WILL BE DEASSIGNED AS THEIR 
CFERATIONS COMPLETE. 


3. IF -"DA’ IS USED,ALL DRIVES BEING TESTED 
WILL BE DEASSIGNED; THE MESSAGE IN (1) WILL 
BE DISPLAYED FOR ALL DRIVES.NOT BEING TESTED. 
*S* COMMAND 


wine A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED 


FORMAT: SN<CR> 


= DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A*. ENTRY MUST BE 
TERMINIATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: SO<CR> = TYPEOUT PERFORMANCE SUMMARY FOR DRIVE 0 
SA<CR> = TYPEOUT PERFORMANCE SUMMARY FOR ALL DRIVES 

BEING TESTED. 

NOTES: 1. IF PARAMETER Mary IS | ZERO, THE 


PROGRAM 
WILL AUTOMATICALLY DISPLAY A PERFORMANCE SUMMARY 
Seine DRIVE BEING TESTED AT A RATE DETERMINED BY 


2. IF THE *SA* COMMAND IS USED, THE PROGRAM WILL TYPEOUT 
THE OPERATOR ENTERED DATE, OPERATOR I.D., AND ay DRIVE 
1.D. FOR EACH DRIVE BEING TESTED. THE DATE AND OPERATOR 
1.D. WILL NOT BE TYPED OUT IF NO DRIVES ARE BEING TESTED. 
*W* COMMAND 


USED TO WRITE A — PACK WITH DATA ACCEPTABLE TO THE PERFORMANCE 
EXERCISER PROGRAM 


FORMAT: WN<CR> 


= DRIVE NUMBER. MAY BE C [0 7 OR ‘A’. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: WO<CR> = GENERATE A DATA PACK ON DRIVE 0. 
WA<CR> = WRITE DATA PACKS ON ALL AVAILABLE DRIVES. 


NOTES: 1. DATA PATTERNS GENERATED BY THE FORMATTER PROGRAM 


SEQ 0017 


— 


ca 


ar i a Siping BW 
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4.4.5 


4.4.6 





(CZRML-) ARE COMPATIBLE. 

2. THE ‘W* COMMAND MUST BE onan TO WRITE A NEW 
PACK UNDER TEST BEFORE OTHER COMMANDS ARE ISSUED; 
IF THE DISK tage HAS BEEN WRITTEN BY ANY PROGRAM 
OTHER THAN THE FORMATTER. 


3. THE ‘WwW’ COMMAND ate bata ,A SEQUENTIAL WRITE OF THE 
PACK USING A ‘WRITE DATA’ COMMAND. THE ea se 


E 
THE OPERATION OF THE COMMAND IS SEQUENTIAL BEGINNING 
Cesta "MINTRK’ AND CONTINUING TO "MAXCYL', 


4. THE ‘W* COMMAND DOES NOT WRITE HEADERS AND ASSUMES 
THAT THE FORMAT OF THE PACK IS GOOD. 


5. THE ‘W' COMMAND CANNOT BE STARTED IF SWITCH A. (READ 
ONLY MODE) IS SET. IF SWITCH 0 IS SET DURING THE 


OPERATION OF THE ‘W* COMMAND, THE DRIVE PERFORMING THE 
"Ww" COMMAND WILL IGNORE THE SWITCH. 


"R* COMMAND 
USED TO PERFORM A SEQUENTIAL READ OF THE PACK. 
FORMAT: RN<CR> 


= DRIVE NUMBER. Py BE 0 TO 7 OR ‘A‘. ENTRY MUST BE 
TERMINATED BY A CARRIAGE "RETURN <CR>. 


EXAMPLE: RO<CR> = READ THE PACK ON DRIVE 0. 
RA<CR> = READ THE PACKS ON ALL OF THE ONLINE DRIVES. 


NOTES: 1. THE PROGRAM WILL PERFORM A NORMAL CHECK OF ALL DATA 
READ. HOWEVER, ALL OPERATIONS WILL BE SEQUENTIAL. 


2. THE PROGRAM WILL READ THE PACK STARTING AT THE ADDRESS 
SPECIFIED BY *MINCYL', "MINTRK* TO THE ADDRESS SPECIFIED 
BY "MAXCYL", "MAXTRK*. THE READ WILL BE SEQUENTIAL. 
"WT" COMMAND 
USED TO PERFORM A SEQUENTIAL WRITE PACK AND FOLLOWED BY A ‘T* COMMAND. 
FORMAT: WTN<CR> 


= DRIVE NUMBER 0 TO 7 OR ‘‘A’'. ENTRY MUST BE TERMINATED BY A 
CARRIAGE RETURN <CR>. 


EXAMPLE: WTO<CR> - WRITE PACK 0 AND TEST PACK 0 
WTA<CR> ~- WRITE ALL PACKS AND TEST ALL PACKS 


CZRMUAQ RMOS/3/2 PERF EXER 
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4.4.7 


5.1 


5.2 
5.2.1 


GENERAL COMMAND INFORMATION 
A. CONTROL=C MUST BE ENTERED BEFORE ISSUING ANY COMMAND. 
B. R, W AND WT COMMANDS ARE EXCLUSIVE TO ONE ANOTHER 


oni THE SAME DRIVE UNDER TESTING. 
D A a SP 3 — Nt IN ORDER TO SWITCH COMMANDS 


C. S$ COMMAND CAN BE ENTERED ANY TIME DURING THE TEST. 


D. THE ERROR RESPONSES FROM THE PROGRAM ARE AS FOLLOWS 
RESPONSE COMMAND (S) . 


?DRIVE N IS LOAD DEVICE T, W, R, WT 
?DRIVE N OFFLINE T, W, R, WT 
?DRIVE N NOT ASSIGNED D. S 

?DRIVE N ALREADY — T, W, R, WT 
?DRIVE N NOT PRESENT T, W, R, WT 
?DRIVE N UNSAFE T, W, R, WT 
?DRIVE N NOT AN RMO5/3/2 T, W, R, Wi 


PERFORMANCE SUMMARY TYPEOUT 


THE PROGRAM WILL DISPLAY A PERFORMANCE SUMMARY FOR THE DRIVES 
BEING EXERCISED. THIS SUMMARY WILL BE DISPLAYED AUTOMATICALLY 
IF THE PARAMETER aioe IS = at te OR i. BE i ON 


REQUEST BY THE OPERATOR HE USE OF THE ' OMMAND . 

THE PERFORMANCE SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS: 
*DRV' THE DRIVE NUMBER 

*PASS' THE PRESENT PASS COUNT FOR THE DRIVE 

"ORDERS" THE NUMBER OF ORDERS PERFORMED BY THE DRIVE 
*SEEKS' THE NUMBER OF SEEK OPERATIONS THE DRIVE PERFORMED 


*WRDS XFER' THE TOTAL NUMBER OF WORDS WRITTEN AND READ BY THE DRIVE 
*WRDS READ' THE TOTAL NUMBER OF WORDS antat BY THE DRIVE 


*SOFT' THE NUMBER OF SOFT DATA ERR 

*HARD* THE NUMBER OF HARD DATA ERRORS 
*SKI' THE NUMBER OF ‘SKI' ERRORS 
*MISP' THE NUMBER OF POSITIONING ERRORS 
*OTHER' THE TOTAL ERRORS OF OTHER TYPES 


NOTE: ERRORS EM1, EM2, EMS, EM4, EMS, & EMI0 ARE NOT INCLUDED IN 
THE *OTHER® ERROR TOTAL. 


SOFT/HARD ERROR DEFINITIONS 
HARD ERRORS 
A. A ‘DTE* (DRIVE TIMING ERROR) OR A "DCK* (DATA CHECK ERROR) 


SEQ 0019 
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6.1 


6.2 


6.3 


6.4 
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ee OCCURS DURING A READ DATA OR A READ HEADER & DATA OPERATION 
AND IS NOT CORRECTABLE OR DOES NOT BECOME CORRECTABLE AFTER THE 
SEtTOA. HAS PERFORMED THE COMPLETE RETRY SEQUENCE ON THE BAD 


THE RETRY SEQUENCE IS 16 RE=READS AT TRACK CENTER AND 2 ATTEMPTS 
BOTH AT POSITIVE AND NEGATIVE OFFSETS. 


SOFT ERRORS 


A. ECC CORRECTABLE "DCK* ERRORS. 

B. ‘DCK’ & ‘"ECH' ERRORS WHICH BECOME ECC = wie DURING 
RETRY OR WHICH ARE READ CORRECTLY DURING RETR 

C. HEADER READ ERRORS - READ DATA, READ HEADER e DATA, OR 
WRITE DATA ORDERS. 

D. ‘DTE* ERRORS WHICH ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE 
"DCK' ERROR DURING THE RETRY SEQUENCE. 


DATA CHECKING & ERROR RECOVERY 


DATA COMPARISON 


DATA COMPARISON OCCURS AFTER EACH 'RDDAT' (READ DATA) OR ‘RDHD' 
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS: 


A. THE ORDER TERMINATED WITH NO ERROR. 


B. THE OPERATION TERMINATED WITH ‘DCK* SET AND THE ERROR 
IS ECC_CORRECTABLE OR THE SECTOR IN ERROR IS READ 
CORRECTLY AFTER RETRY ATTEMPTS. 


VERIFICATION OF DATA WRITTEN 


DATA VERIFICATION IS DONE EITHER THROUGH READING THE WRITTEN 
DATA BACK AND MATCHING THE DATA WITH ONE OF THE 15 PATTERNS 
OR THROUGH ISSUING WRITE CHECK COMMANDS. 


SECTOR REFORMATTING 


THE PROGRAM WILL REFORMAT AN UNCORRECTABLE ERROR SECTOR IN THE 
FOLLOWING CASES (PARAMETER ‘FORMAT’ MUST BE SET AND SwW<00> = 0). 
THIS PREVENTS THE SAME ERROR FROM BEING CONTINUOUSLY REPORTED. 


A. DATA CHECK ERRORS - 
B. HEADER READ ERRORS - “E29 EM24, EM25, EM26, EM27 
C. DRIVE TIMING ERRORS - EM31 

D. OPERATION INCOMPLETE ERRORS - emote 

E. WRITE CHECK ERRORS - EM22, 


NOTE: THE SECTOR WILL NOT BE REFORRMATTED IF THAT PARTICUL 
ADDRESS IS CONTAINED IN THE BAD SECTOR TABLE. (SEE SECTION 6.4) 


BAD ADDRESS FLAGGING 


SEQ 0020 


on 
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SINCE THE ty oo ig SUB=SYSTEM HAS AN AUTOMATIC BAD SPOT HANDLING 

CAPABILTIY, THE PERFORMANCE EXERCISER ALLOWS THE USER TO IDENTIFY 
UP TO 252. BAD SECTOR LOCATIONS FOR EACH DRIVE, WHEN ASSIGNING THE 
DRIVES FOR TESTING. 


IF ONE OF THE FOLLOWING ERRORS OCCURS AT A LOCATION IDENTIFIED BY 
THE PROGRAM, THE PROGRAM WILL INHIBIT THE ERROR REPORT FOR THAT ERROR. 


DATA CHECK ERRORS ('DCK") 

WRITE CHECK ERRORS (‘WCE") 

OPERATION INCOMPLETE ERRORS (*OPI") 

DRIVE TIMING ERRORS (‘DTE' 

HEADER READ ERRORS (‘FER W/ HCRC', ‘HCE W/ HCRC* OR ‘HCRC') 


WHEN A ade IS ASSIGNED TO BE TESTED, THE PROGRAM READS THE 
BAD SECTOR FILE FROM THE LAST TRACK OF THE PACK AND THEN 
ALLOWS THE ADDITIONAL BAD SPOTS TO BE ENTERED MANUALLY. 


THE MAXMUM NUMBER OF BAD SPOTS ALLOWED FOR EACH DRIVE, BOTH READING 
FROM THE LAST TRACK AND ENTERING FROM KEYBOARD, IS 252.. 


THE MANUALLY ENTERED BAD SECTORS ARE NOT RECORDED TO THE BAD SECTOR 
FILE OF THE PACK CURRENT UNDER TESTING. IF IT IS DESIRED TO RECORD 
THE BAD SECTORS TO THE BAD SECTOR FILE, USE THE FORMAT PROGRAM 
CZRML~. (STARTING AT LOCATION 204) 


ERROR MESSAGES 





DRIVE ERRORS ARE REPORTED ON THE TELETYPE OR (IF AVAILABLE) A 
a at ath 9 ALL ERROR CONDITIONS ARE REPORTED IN ERROR MESSAGES; 


D ERROR IF THE PROGRAM HALTS 

(ASSUMING, OF COURSE, THAT SwW<15> IS NOT SET), AN UNRECOVERABLE 

PROGRAM CONDITION HAS OCCURRED OR A CENTRAL PROCESSOR FAILURE HAS 
OCCURRED. 
ERROR MESSAGES ARE MADE UP OF io LINES. _ TYPE OF ERROR 
HAS SEVERAL OPTIONAL LINES WHICH MAY APPEAR WITH IT. ALL OF THE 
POSSIBLE ERROR MESSAGE LINES WHICH | MAY APPEAR ARE GIVEN IN THE 
SECTION DESCRIBING THE PARTICULAR ERROR HEADER. 
ERROR DESCRIPTION LINES 
MESSAGES EM1, EM2, EMS, EM4, EMS, EM10, EM11, & EM12 ARE ALWAYS 
DISPLAYED ON THE TTY. THE OTHER MESSAGES pre DISPLAYED ON EITHER 
THE LINE PRINTER (IF AVAILABLE) OR THE T 
(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE.) 


MESSAGE 
TAG TEXT 


EM1 RH11 INTERRUPT OCCURRED (RMAS=0) 





SEQ 0021 
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EM2 


EM3 


EM4 


EMS 


EM6 


EM10 


EM11 


EM12 


EM13 


EM14 


THE RH11 INTERRUPTED AND THE ATTENTION SUMMARY REGISTER 
(RMAS) WAS CLEARED. 


UNEXPECTED ATTENTION OCCURRED 


THE INDICATED DRIVE INTERRUPTED BUT THE DRIVE WAS NOT 
PERFORMING AN OPERATION. 


MASSBUS PARITY ERROR (MCPE=1) 


THE RH11 DETECTED A CONTROL BUS PARITY ERROR WHEN READING 
THE INDICATED REGISTER FROM THE INDICATED DRIVE. 


MASSBUS PARITY ERROR (PAR=1) 


THE INDICATED RM DETECTED A CONTROL BUS PARITY ERROR 
WHEN THE RH11 LOADED THE SPECIFIED REGISTER. 


ADDRESS PLUG CHANGE BIT SET 
THE *OPE* BIT WAS SET WHEN THE INDICATED DRIVE INTERRUPTED. 
RH11 DIDN'T RESPOND TO ADDRESSING 


WHEN THE PROGRAM ADDRESSED THE RH11, NO RESPONSE WAS RECEIVED 
FROM THE INDICATED ADDRESS. 


UNCORRECTABLE MASSBUS PARITY ERROR 


THE PROGRAM HAS TRIED 3 TIMES TO READ OR WRITE THE INDICATED 
REGISTER. 


FATAL MASSBUS PARITY ERROR 


A CONTROL BUS PARITY ERROR OCCURRED WHEN THE RH11 ATTEMPTED 
TO PROCESS A PREVIOUS, DIFFERENT PARITY ERROR. 


PERSISTENT DEVICE UNSAFE 


THE DRIVE BECAME UNSAFE; DRIVE CLEAR TO THE DRIVE DID 
NOT CLEAR THE UNSAFE CONDITION. THE PROGRAM WILL 
AUTOMATICALLY DEASSIGN THE DRIVE. THE DRIVE CANNOT 
BE EXERCISED UNTIL THE UNSAFE CONDITION HAS BEEN 
CLEARED BY MANUAL INTERVENTION. 


OPERATION NOT COMPLETED WITHIN TIME LIMIT 


THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 1 SECOND 
AFTER THE OPERATION WAS INITIATED. 


UNIT WENT OFFLINE 
THE DRIVE WENT OFFLINE DURING THE INDICATED OPERATION. 
(THE *MOL’ BIT BECAME ZERO.) THE PROGRAM WILL AUTOMATICALLY 


“pg hy 3 DRIVE. THE OPERATOR MUST REASSIGN THE DRIVE 
WITH THE COMMAND TO RE~INITIATE TESTING. 


SEQ 0022 


| K 2 
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EM15 NO RESPONSE TO PORT REQUEST 


THE PROGRAM IS TESTING A DUAL PORT DRIVE WHICH HAS NOT SWITCHED 
TO THE REQUESTING PORT WITHIN 10 SECONDS AFTER PORT REQUEST 
TO FHE DRIVE FROM THE REPORTING PORT. 


EM20 HEADER CRC ERROR 
A HEADER CRC ERROR WAS DETECTED AT THE INDICATED DISK ADDRESS. 
THE CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 

EM21 DATA CHECK ("DCK') ERROR 
A DATA CHECK ERROR WAS DETECTED AT THE INDICATED SECTOR. 


THE FULL RETRY SEQUENCE (INCLUDING OFFSET) WILL BE INITIATED 
4 gg SECTOR IN ERROR IF THE ECC HARD ERROR ('ECH) BIT 


SEQ 0023 


SePerec ceed tris 


EM22 WRITE CHECK ERROR = DATA CHECK ("DCK') SET 


A WRITE CHECK ERROR OCCURRED AND THE DATA CHECK ("DCK') BIT 
WAS SET. IF *ECH' IS NOT SET, THE OPERATION WILL BE RETRIED 
UP TO 3 TIMES; IF THE ‘ECH’ BIT IS SET, THE OPERATION WILL 
BE RETRIED UP TO 16 TIMES. 


EM23 WRITE CHECK ERROR - DATA CHECK (*DCK") NOT SET 
A WRITE CHECK ERROR OCCURRED AND 'DCK' WAS NOT SET. THE 
WORDS WHICH CAUSED THE ERROR ARE DISPLAYED IN THE ERROR 
MESSAGE. THE OPERATION WILL BE RETRIED 3 TIMES. 

EM24 HEADER READ ERROR - "FMT" BIT DROPPED 
A WRITE DATA, WRITE CHECK DATA, OR A READ DATA WAS BEING 
PERFORMED AND A ‘FMT’ ERROR OCCURRED. THE PROGRAM RE-READ THE 
HEADER OF THE ERROR SECTOR AND THE ‘HCRC’ BIT WAS SET. THE 
CONTENTS OF _THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 

EM25 HEADER READ ERROR - HEADER COMPARE (‘HCE') ERROR 


SIMILAR TO EM24, EXCEPT THAT THE ‘HCE’ ERROR BIT WAS 
SET INITIALLY. THE OPERATION WILL BE RETRIED 3 TIMES. 


EM26 —- FORMAT ERROR ('FER") 
FORMAT ERROR OCCURRED. WHEN THE HEADER WAS RE-READ, THE 
"HCRC’ BIT WAS NOT SET. THE CONTENTS OF THE HEADER ARE 
DISPLAYED. THE OPERATION WILL BE RETRIED 3 TIMES. 

EM27 HEADER COMPARE ("HCE") ERROR 


SIMILAR TO EM26 EXCEPT THAT THE ‘HCE’ BIT WAS SET INITIALLY. 
THE OPERATION WILL BE RETRIED 3 TIMES. 


EM30 MISCELLANEOUS DRIVE ERROR 
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THIS MESSAGE IS GIVEN FOR THE FOLLOWING ERROR BITS: 
"AOE', "RMR', “ILF", OR "ILR' 


OPERATION INCOMPLETE ("OPI") ERROR 
eo INCOMPLETE ERROR OCCURRED AT THE INDICATED 


DRIVE TIMING ("DTE") ERROR 


DRIVE TIMING ERROR OCCURRED ON THE INDICATED SECTOR. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


PARITY (*PAR') ERROR AFTER OPERATIUn STARTED 


THE *PAR*® BIT WAS SET WHEN THE OPERATION WAS COMPLETED. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


WRITE CLOCK FAILURE (‘WCF*) 


A WRITE CLOCK FAILURE OCCURRED DURING THE OPERATION. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


INVALID ADDRESS ("IAE') ERROR 
AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION. 
WRITE LOCK (‘WLE") ERROR 


pee hy OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE 


RH11 OR UNIBUS TRANSFER ERROR 

*TRE’ IS SET IN THE RH11 CONTROL REGISTER AND NO DRIVE 
ERROR HAS OCCURRED. THE OPERATION WILL BE RETRIED 3 
TIMES IF THE ERROR WAS CAUSED BY "DLT', ‘UPE', ‘MxF’, 

OR 'MDPE’. 

BUS ADDRESS OR WORD COUNT INCORRECT 

NO DRIVE ERROR OCCURRED BUT EITHER THE BUS ADDRESS INDICATES 
THAT AN INCORRECT NUMBER OF WORDS WERE TRANSFERED OR THE 
WORD COUNT REGISTER IS NOT ZERO. 

DATA COMPARE ERRORS = NO DRIVE ERROR DETECTED 


NO SUBSYSTEM ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT 
COMPARE . 


CAN'T MATCH DATA READ WITH A PATTERN 
THE DATA IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD 
PATTERNS. 


ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH11 
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7.2 





THE OPERATION COMPLETED NORMALLY; HOWEVER, THE PROGRAM 
FOUND EITHER ERROR BITS IN THE RM SET OR ERROR BITS IN 
THE RH11 SET. 

EM45 ECC LOGIC FAILURE 
THE CONTENTS OF EITHER THE ECC POSITION REGISTER (RMEC1) 
OR THE CONTENTS OF ECC PATTERN REGISTER (RMEC2) ARE NOT 
VALID. THE POSITION REGISTER IS EITHER A 0 OR > 040066 
OR THE PATTERN REGISTER CONTAINS ZEROS. 

EM46 BUS ADDRESS OR WORD COUNT NOT CONSISTENT 
THE PROGRAM WAS PROCESSING AN ERROR AND FOUND THAT THE 
NUMBER OF WORDS TRANSFERED AS INDICATED BY THE BUS ADDRESS 
REGISTER DOES NOT AGREE WITH THE TRANSFER COUNT FROM THE 
WORD COUNT REGISTER. 

EMSO SEEK INCOMPLETE ERROR 
THE DRIVE SIGNALED EITHER ‘SKI* OR ‘OCYL" ERROR BITS. 


EM51 NOT USED 


EM60 DEVICE UNSAFE 


THE INDICATED DRIVE UNSAFE ERROR OCCURRED; THE ERROR WAS 
CLEARED BY A ‘DRIVE CLEAR’ INSTRUCTION. 


DETAIL ERROR LINES 
THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY. 
LINE 1 


HH:MM:SS 

*"HH:MM:SS* IS THE TIME SINCE THE PROGRAM WAS STARTED. 
(HOURS, MINUTES, SECONDS) 

LINE 2 


"PRESENT ORDER = XXXX PREVIOUS ORDER = yyyy' 
MNEMONICS USED FOR THE ORDERS ARE DEFINED BELOW: 


UNLOAD = UNLOAD (OCTAL 3) 

SEEK = SEEK (OCTAL 5) 

RECAL = RECALIBRATE (OCTAL 7) 
DRVCLR = DRIVE CLEAR (OCTAL 11) 
RELSE ~ RELEASE (OCTAL 13) 
OFFSET = OFFSET (OCTAL 15) 
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RTC = RETURN TO CENTERLINE gd 17) 
READIN = READIN PRESET (OCTAL 21) 

PACK = PACK ACKNOWLEDGE (OCTAL 23) 

SEARCH = SEARCH (OCTAL 31) 

GETREG = GET Seenet aE (OCTAL 4 

SETFMT = SET FORMAT (ECI OR ch) (OCTAL 43) 
SELDRV = SELECT DRIVE (OCTAL 

a WRITE CHECK ap (OCT 


CTAL 61 
WRTHD = WRITE CHECK HEADER & DATA (OCTAL 63) 
RDDAT = READ DATA (OCTAL 71) 
RDHD - READ HEADER & DATA (OCTAL 73) 


(DISPLAY OF THE RH/RM REGISTERS IN TWO ray 
RMCS1,RMCS2,RMDS1,RMER1 ,RMER2 ,RMER3 ,RME & RMEC2 FORM THE FIRST 
GROUP; ALL THE OTHER REGISTERS ARE iN THe SECOND GROUP. 

IF Sw<05> is SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL BE 


THE ABOVE LINE WILL BE TYPED IF THE ERROR OCCURRED DURING 
THE NON-DATA TRANSFER PART OF THE OPERATION. 


** ERROR AT BAD TRACK/SECTOR‘ 


THE ABOVE LINE WILL BE PRINTED IF A DATA ERROR OCCURES AT AN asa t 


ON THE PACK WHICH THE OPERATOR HAS IDENTIFIED AS BEING BAD. 
*"NOTPRT' MUST BE 0 FOR THE ERROR TO BE REPORTED. 


A WORD CALLED ‘STATUS’ IS DISPLAYED WITH — RM REGISTERS. THE 
Dap h ped OF THIS WORD IDENTIFY HOW THE ERROR WAS PROCESSED BY THE 
aa oh ty © aie LER ROUTINE. THE BITS IN THIS WORD ARE ENCODED 


BIT # MEANING IF BIT IS ‘1° 


15 ERROR OCCURRED 
DONE (BITO7=0), BITS 14-9, 2, 1 SPECIFY TYPE 
DONE (BITO7=1), BITS 6-3 SPECIFY TYPE 


14 DRIVE IS OFFLINE 

12 PERSISTENT UNSAFE CONDITION EXISTS 

11 UNCORRECTABLE PARITY ERROR OCCURRED 

10 FATAL PARITY ERROR OCCURRED. MASSBUS CLEAR 
WAS PERFORMED 

9 OPERATION NOT COMPLETED WITHIN 1 SECOND 
MASSBUS CLEAR PERFORMED. ALL OTHER 
OUTSTANDING OPERATIONS WERE RESTARTED. 

7 DONE - OPERATION COMPLETED 


SEQ 0026 
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6 DATA ERROR OCCURRED DURING THE TRANSFER 


ERROR OCCURRED WHILE SEARCHING FOR THE ‘TRANSFER’ 
SECTOR OR DURING RECALIBRATE OR OFFSET COMMANDS 


4 CORRECTABLE UNSAFE CONDITION OCCURRED 


DRIVE ERROR OCCURRED THAT CAUSED AN AUTOMATIC 
RECALIBRATE SEQUENCE 


2 PORT REQUEST TIMEOUT 
1 NON-EXISTENT DRIVE REQUESTED 


ERROR AT CXXX TYY SZ7Z PREV ADDR = CUUU TVV Siw 

THE ACTUAL ADDRESS OF THE ERROR SECTOR AND THE PREVIOUS 
DISK ADDRESS ARE GIVEN IN THIS LINE. CYLINDER, TRACK, & 
SECTOR ADDRESSES ARE IN DECIMAL. 


LINE 4 


PRESENT ADDR = CXXX TYY SZ2Z PREV ADDR = CUUU TVV SwWW 

THIS LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS DETECTED; 
THE PREVIOUS ADDRESS IS ALSO GIVEN. CYLINDER, TRACK, & SECTOR 
ADDRESSES ARE GIVEN IN DECIMAL. 


LINE 5 


START CYL = XXX END CYL = YYY 


iy LINE IDENTIFIES THE STARTING CYLINDER OR A SEEK (IMPLIED) 
a aa DESTINATION CYLINDER. CYLINDER ADDRESSES ARE IN 


START CYL = XXX END CYL = YYY ACTUAL CYL = 222 
THIS LINE IDENTIFIES THE STARTING CYLINDER OF AN IMPLIED SEEK, 


THE DESTINATION CYLINDER, AND THE CYLINDER THE DISK ACTUALLY 
STOPPED AT. CYLINDER ADDRESSES ARE IN DECIMAL. 


RMBA = XXXX RMWC = YYYY 


THIS LINE GIVES THE CONTENTS OF THE RH11 BUFFER ADDRESS 
REGISTER AND THE RH11 WORD COUNT REGISTER. THIS LINE IS 


SEQ 0027 
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SEQ 0028 
1258 NOT PRINTED IF SwW<OS> IS NOT SET. 
tal LINE 8 
| 1 
ie START CYL = XXX START TRK = YY START SECTOR = 77 
1376 THIS LINE IDENTIFIES THE STARTING DISK ADDRESS OF THE PRESENT 
ie OPERATION. CYLINDER, TRACK, AND SECTOR VALUES ARE DECIMAL. 
379 LINE 9 


RMDA = XXXX RMCA = YYYY 


THIS LINE GIVES THE CONTENTS OF THE RM TRACK AND SECTOR 
ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER 
— REGISTER. THIS LINE IS NOT PRINTED IF Sw<05> IS NOT 


SESSSEESS 


LINE 10 


Rv78 


BUFFER ADDR = XXXX SIZE = YYYY ACTUAL NUMBR WRDS XFRD = 2277 


THIS LINE GIVES THE STARTING ADDRESS OF THE BUFFER USED FOR THE 
co tte TRANSFER OPERATION, ITS SIZE, AND THE ACTUAL NUMBER 


No 


vw 


kk ek ed ed od od et 
WAuwsuyyyyg 
oOo 


96 RANSFERED. THE STARTING ADDRESS OF THE BUFFER IS IN 
44 OCTAL, THE SIZE AND WORD TRANSFERED VALUE ARE IN DECIMAL. 
399 LINE 11 
400 ooee2eceoe 
1401 
bss 4 GOOD DATA = XXXX BAD DATA = YYYY SECT POS = 222 
1404 THIS LINE GIVES THE GOOD DATA, THE ACTUAL DATA FROM THE DISK, 
1405 AND THE LOCATION IN THE SECTOR OF THE ACTUAL DATA. THE SECTOR 
Les POSITION IS IN DECIMAL. 
1408 LINE 12 
1410 vials 
sete HEADER CONTENTS OF ERROR SECTOR = XXXX XXXX XXNK XKMX 
1413 THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 
1414 GAVE THE ERROR. 
1415 
1416 LINE 13 
1417 ooooene 
1418 
yh RMEC1 = XXXX RMEC2 = YYYY 
1421 THIS LINE WILL BE PRINTED AFTER A SUCESSFUL RETRY OF A SECTOR 
1422 WHICH BECAME ECC CORRECTABLE DURING RETRY. 
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ECC CORRECTABLE WITHOUT OFFSET 
THE SECTOR IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE 
NECESSARY. 


READ CORRECTLY AT (NEG OR POS) OFFSET 


THE SECTOR IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED 
OFFSET VALUE. 


LINE 16 


ECC CORRECTABLE AT (NEG OR POS) OFFSET 
La weg IN ERROR BECAME ECC CORRECTABLE AT THE INDICATED 


CORRECTED ON X RETRY 
THE OPERATION WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 


UNCORRECTABLE AFTER X RETRIES : 


THE OPERATION COULD NOT BE PERFORMED CORRECTLY AFTER THE 
INDICATED NUMBER OF RETRY ATTEMPTS. 


LINE 19 


DIFFERENT ERROR DURING RETRY 


WHILE THE PROGRAM WAS RETRYING THE ERROR, A DIFFERENT OCCURRED. 
IF THIS LINE IS PRINTED, THE RH/RM REGISTERS WILL ALSO BE 
PRINTED (SEE LINE 2). 


LINE 20 


DATA COMPARISON ERRORS 
A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 
LINE 21 





SEQ 0029 


£3 
CZRMUAO RMOS/3/2 PERF EXER MACRO VO03.01 11=APR=80 14:52:06 PAGE 3-26 
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cs 
| SEQ 0030 
| Mr +4 TOTAL COMPARE ERRORS = XXXX 
| 1485 THIS LINE GIVES THE TOTAL DATA COMPARISON ERROR COUNT. THE 
1ene VALUE GIVEN IS IN DECIMAL. 
1488 LINE 22 
Oe es oe oe ae eee 
1490 
| THE DATA COMPARED OK 
1493 THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
1494 ECC CORRECTION. 
1495 
1496 LINE 23 
1497 -------- 
1498 
ip 4 ~ * €CC CORRECTION RESULTS 
1501 THE PROGRAM PERFORMED ECC CORRECTION AND THE RESULTS ARE REPORTED. 
1502 THE ADDRESS IN MEMORY OF THE WORD(S) IN ERROR ARE GIVEN, THE WORD(S) 
P24 BEFORE CORRECTION AND THE WORD(S) AFTER CORRECTION ARE PRINTED. 
1505 LINE 24 


CA AAT IA AA ATOR PORIROROMOAD St oe AOS 
BVRBIFARUYLSVSYRGRURVSSaranronuoSewR 


kk kk ek a as a ed a es 


MAMA MAMA AMAA AUT UU 


ERROR WAS NOT IN THE DATA READ - 
ECC CORRECTION CAN'T BE PERFORMED 


THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY. 


CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE) 

IF Sw<03> IS SET, THE SECTOR WHICH GAVE THE ‘DCK*, “DTE* OR, 
WCF" ERROR OR 'HARD' DATA CHECK ERROR IS PRINTED. THE 

CONTENTS OF THE SECTOR FOLLOW THIS LINE. 


LINE 27 


ORDERS: WwW ERRORS: X WRDS XFR: YYYY WRDS READ: 2722 


Tyee tm hf LAST LINE PRINTED FOR ALL NON-POSI TIONING 


ap nae < 
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1540 "ORDERS' IS THE TOTAL NUMBER OF COMMANDS GIVEN TO THE DRIVE 
| 1303 WHICH REPORTED THE ERROR. 
1543 "ERRORS IS THE TOTAL ERROR COUNT FOR THE DRIVE AND INCLUDES 
i 9 EVERY ERROR DETECTED, REGARDLESS OF TYPE. 
1546 "WRDS XFR° IS THE TOTAL NUMBER OF WORDS WRITTEN AND READ BY 
1 THE DRIVE. 
rsh "WRDS READ' IS THE TOTAL NUMBER OF WORD READ BY THE DRIVE. 
LINE 28 


ORDERS: WwwWw TOTAL SEEKS: XXX TOTAL POS ERR = YYY TOTAL SKI ERR = Z 
THIS IS THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS. 


‘ORDERS’ IS THE TOTAL NUMBER OF ORDERS GIVEN TO THE DRIVE WHICH 
REPORTED THE ERROR. 


"TOTAL SEEKS" IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED 


DBM 
WONAUEWR— 


PED it ag A ea 
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ak ng et ng a ag at a od 0 ot ot od oe os 


33 BY THE DRIVE. 

564 "TOTAL SKI ERR’ IS THE TOTAL NUMBER OF ‘SKI" ERRORS 

565 SIGNALED BY THE DRIVE. 

566 

567 

568 8. PROGRAM DESCRIPTION 

569 Soneenneenesecesrse 

570 
13) 8.1 PROGRAM OPERATION 
1573 WHEN THE PROGRAM IS a and PROVIDING APT TTY ENABLE BIT IS SET 
1574 OR DIAGNOSTIC LOADED BY OTHER THAN APT SCRIPT MODE, ALL TABLES AND 
1575 PARAMETERS ARE CLEARED OR INITIALIZED. THE PARAMETERS WHICH ARE 
1576 UNDER OPERATOR TTY ENTRY CONTROL ARE CHECKED FOR VALIDITY AND 
1577 CONSISTENCY. RH11_ INTERRUPT ENABLE ("IE*) IS SET, TTY KEYBOARD 
1578 INTERRUPT ENABLE IS SET, AND THE KW11-L OR KW11-P IS STARTED. 
1579 WHEN THESE ACTIONS HAVE “BEEN COMPLETED. THE PROGRAM TYPES OUT 
1580 "PROGRAM INTIALIZE COMPLETE’. COMMAND ENTRIES WILL NOw BE ACCEPTED 
133) BY THE PROGRAM 
a THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES, LOOKING FOR: 
1585 1) DRIVES TO og pede the 
1586 2) PERFORMANCE SUMMARY TYPEOUT REQUESTS 
1587 , 3) DRIVES REQUIRING COMMAND INITIATION, BUFFER ASSIGNEMENT, 
1588 OR PARAMETER SELECTION 
Fs 4 4) DRIVES COMPLETING CURRENT OPERATIONS. 
1591 THE PROGRAM CONTINUES ae ITS TABLES UNTIL AN ENTRY IS FOUND. 
1592 IN THE CASE OF THE PROGRAM AT INITIAL START, THE Aid ENTRY WILL 
leo? BE MADE BY THE OPERATOR WHEN A DRIVE IS ASSIGNED ( COMMAND) . 
1595 WHEN A DRIVE IS ASSIGNED, THE 1 ge ENTRY ROUTINE VERIFIES THAT THE 


1596 DRIVE IS PRESENT, IS AN RMO5S/3/2, AND IS ONLINE. THE ASSIGNMENT ROUT INE 


SEQ 0031 
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‘_~ ISSUES A_ ‘READIN aa Ae INSTRUCTION, SETS ‘FMT16", AND ISSUES 
A *RECALIBRATE’ INSTRUCTION 


PARAMETERS FOR THE OPERATION ARE SELECTED AND A BUFFER IS ASSIGNED. IF 
THE OPERATION IS A WRITE OR WRITE CHECK ORDER, THE ASSIGNED BUFFER 
WILL BE FILLED WITH He 33 Ya Me Unie (WRITE CHECK te ARE 


DER 
PARAMETERS SELECTED FOR THE PRECEEDING WRITE eas CONTROL 


THE COMMAND INITIATION ROUTINE FIRST LOOKS AT THE CYLINDER ADDRESS OF 
THE REQUESTED Patra IF THE DRIVE MUST SEEK TO ANOTHER CYLINDER TO 
PERFORM THE OPERATION, THE PROGRAM ISSUES A SEARCH INSTRUCTION 
TO THE DRIVE WITH A ‘TARGET’ SECTOR WHICH IS 8 SECTORS EARLIER 
THAN THE ‘TRANSFER’ SECTOR. (THIS ALLOWS THE PROGRAM TO INITIATE 
OPERATIONS ON ANOTHER DRIVE WHILE THE PRESENT DRIVE, OR OTHER 
ey EE ARE SEARCHING FOR ‘TARGET’ SECTORS. ALL SEEKS ISSUED BY 

PR ARE IMPLIED SEEK SEARCH OPERATIONS.) WHEN A SEARCHING 
DRIVE FINDS THE *TARGET* SECTOR AND INTERRUPTS, THE PROGRAM READS 
THE LOOK AHEAD REGISTER (RMLA) OF THE INTERRUPTING DRIVE AND 
COMPARES THE POSITION OF THE DISK WITH THAT OF THE DESIRED SECTOR. 


IF OTHER wont ARE WAITING ON CYLINDER, THEY ARE ALSO CHECKED. THE 

PROGRAM THEN ISSUES ; REQUESTED ORDER TO THE DRIVE NEAREST ITS 
TRANSFER SECTOR. THE DRIVES NOT SELECTED WILL HAVE ANOTHER SEARCH 
INITIATED. IF A DRIVE IS NOT SELECTED FOR TRANSFER AFTER THREE 
REVOLUTIONS OF ITS DISK, IT IS GIVEN PRIORITY OVER DRIVES WHICH HAVE 
NOT BEEN ON CYLINDER AS LONG. 


WHEN THE DATA TRANSFER OPERATION IS COMPLETE, THE DRIVE REGISTERS 
ARE STORED AND A DATA TRANSFER IS INITIATED FOR A WAITING DRIVE. 


IF THE OPERATION HAS BEEN COMPLETED NORMALLY, THE SAVED DRIVE REGISTERS 
ARE CHECKED TO VERIFY THAT NO ERROR BITS ARE SET; THE RH11 BUS ADDRESS 
AND WORD COUNT ADDRESS yer ARE CHECKED ie VERIFY THAT THE 

CORRECT NUMBER OF WORDS HAVE BEEN eee HAT THE TWO REGISTERS 
ARE CONSISTENT WITH EACH OTHER; AND IF T HE ORDER Was A_READ ORDER, THE 
DATA BUFFER IS OMPARED. WHEN THIS SEQUENCE IS COMPLETED, THE DRIVE 

IS RETURNED TO THE ASSIGNED, INACTIVE LIST. THE PROGRAM THEN 

INITIATES A DATA TRANSFER ON A WAITING DRIVE AND RESELECTS AND 
REINITIATES ANOTHER OPERATION ON THE RELEASED DRIVE. 


ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER. MULTIPLE 
ERRORS WILL BE REPORTED AS THE FIRST ERROR TYPE CHECKED. 


A. ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY. 
PERSISTENT UNSAFE CONDITION = EM12 
M11 
OPERATION NOT COMPLETED WITHIN TIME LIMIT ~ EM13 
UNIT WENT OFFLINE = EM14 
B. ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY. 


CORRECTABLE UNSAFE - EM60 
DRIVE TIMING ERROR ~ EM32 


SEQ 0032 
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DATA CHECK ERROR = EM21 

WRITE CHECK WITH DCK SET = EM22 
HEADER CRC ERRORS = EM20 

ORMAT ERR’ 


WRITE CHECK WITHOUT ‘DCK' SET - 

R UNIBUS TRANSFER ERROR - EM40 
"OPI' ERROR = 

*PAR' ERROR = EM33 

*WCF* ERROR = 

*IAE' ERROR = EM35 

"WLE* OR =~ 


ERR EM36 
MISCELLANEOUS DRIVE ERROR - EM30 
C. ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC. 


BUS ADDRESS OR WORD COUNT INCORRECT - EM41 

DATA_COMPARE ERRORS = NO DRIVE ERROR DETECTED - EM42 
CAN'T MATCH DATA READ WITH A PATTERN - EM43 

ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH11 - EM44 
ECC LOGIC FAILURE - EM45 

BUS ADDRESS OR WORD COUNT NOT CONSISTENT - EM46 


DUAL PORT OPERATION 


DUAL PORT Paes > IS NEARLY IDENTICAL TO THE OPERATION DESCRIBED 
IN SECTION 8.1. THE DIFFERENCES ARE IN COMMAND SEQUENCE INITIATION 
AND ORDER TERMINATION. 


WHEN THE DUAL PORT ee ROUTINE IN THE EXERCISER PROGRAM RECEIVES 
A REQUEST FOR A DRIVE, THE PROGRAM VERIFIES THAT THE DRIVE IS 
Test Ti THE PRI wa} IS SELECTED AND READ THE RMCS1 REGISTER BY 
IF THE DRIVE IS” IN “NEUTRAL, THIS | ae SEIZE THE DRIVE. if THE 
DRIVE IS eette BY THE OTHER PORT, READING 'RMDS1’ WILL SET 

*PORT REQUEST TH OGR*M CHE HECKS *DVA'_IN ‘RMCS1'. IF THE DRIVE 
IS AVAILABLE AS INDICATED BY THE 'DVA' BIT, THE COMMAND SEQUENCE 
WILL ee INITIATED IN THE NORMAL MANNER (SEE SECTION 8.1 ABOVE). 
IF *DVA* WAS NOT SET, THE PROGRAM MAKES AN ENTRY FOR THE DRIVE 
IN AN INTERNAL ‘PORT REQUEST PENDING’ TABLE AND 
STARTS A 10 SECOND TIMER FOR THE DRIVE. IF THE DRIVE HAS 
NOT SWITCHED TO THE go pie SYSTEM WITHIN THE 10 SECOND INTERVAL, 
THE PROGRAM REPORTS A ‘NO RESPONSE TO PORT REQUEST’ ERROR. LY 
THIS ERROR MESSAGE INDICATES A FAILURE IN THE DUAL PORT CONTROL 
iene IN THE a] gf TEST yg te? UNDER yee a | 


° PAR RRORS BEI EPORTED ON THE OTHER SYSTEM 
ON A MOD33 TTY), THE OTHER PROCESSOR WAS E PROCESS THE DRIVE 
AFTER IT HAD R THE DRIVE. THE OPERATOR T 


EQUESTED MUST BE OF 
WHAT THE OTHER SYSTEM IS DOING AT ALL TIMES TO INTERPRET THE PORT 
RELATED ERROR MESSAGES PROPERLY. 


AFTER A DRIVE HAS COMPLETED AN OPERATION, THE PROGRAM WILL STORE 
THE REGISTERS AND ISSUE A ‘RELEASE’ TO THE DRIVE; IF THE OPERATION 
TERMINATED WITH AN ERROR, THE DRIVE WILL NOT BE RELEASED UNTIL 
ERROR PROCESSING HAS BEEN COMPLETED. 


SEQ 0033 
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SEQ 0034 

1711 

| 712 SINGLE PORT DRIVES, ar el WHICH 
1713 ARE IN NEUTRAL BUT NOT BEING EXERCISED BY THE OPPOSITE PORT ARE STILL 
1714 Hoge ig AS DUAL PORT DRIVES IN THAT A RELEASE COMMAND IS ISSUED 
1715 T THE END OF NORMAL ORDER PROCESSING OR AT THE END OF ERROR PROCESSING. 
1716 A RELEASE COMMAND ISSUED UNDER THESE CONDITIONS HAS NO FUNCTIONAL 
at 4 EFFECT ON THE OPERATION OF THE DRIVE. 
tah 8.3 SELECTION OF OPERATION VARIABLES 
1721 A. SECTOR oe SELECTION IS RANDOM BETWEEN THE VALUES IN 
1722 MINSEC' "MAXSEC'. TRACK ADDRESS SELECTION IS RANDOM 
1723 BETWEEN THE VALUES IN "MINTRK' AND *MAXTRK'. CYLINDER ADDRESS 
1724 SELECTION IS RANDOM BETWEEN "MINCYL' AND ‘MAXCYL'. IF A MINIMUM 
1725 RESS IS GREATER THAN THE CORRES MAXIMUM ADDRESS, THE 
1726 PROGRAM WILL EXCLUDE ALL ADDRESSES BETWEEN ‘MAX' * FROM 
1727 THE SELECTION. FOR EXAMPLE: IF "MINTRK' IS 5 AND "MAXTRK’ IS 

; 1728 IS 2, THEN TRACK ADDRESS SELECTION WILL EXCLUDE TRACKS 3 = 4 

Py) ter FROM THE SELECTION AND SELECT AN ADDRESS FROM AMONG ADDRESSES 
et Jo O, Ve ee 
1732 B. THE BUFFER SIZE IS RANDOM SELECTED BETWEEN 4 - AND THE 
1733 ~ IN *SIZE*. THE SIZE SELECTED IS WEIGHTED TO ENSURE 
1734 THIS IS NECESSARY AS THE PROGRAM REQUIRES 4 LOCATIONS 
1735 IN THE DATA PORTION OF THE SECTOR TO BE ABLE TU MATCH THE DATA 
ie TO A PATTERN FOR DATA COMPARISON PURPOSES. 
1738 C. THE DATA WRITTEN IS RANDOMLY SELECTED AMONG THE 15 STANDARD 
1739 PATTERNS. THE PARAMETER ‘PATTERN’ ENABLES THE RANDOM PATTERN 
1740 SELECTION, IF THIS PARAMETER IS O;OTHERWISE,THE DATA PATTERN 
Ie INDEXED BY THE VALUE 'PATTERN'' IS SELECTED. 
1743 D. THE ORDERS ARE SELECTED RANDOMLY. WRITE CHECK DATA AND WRITE 
1744 CHECK HEADER & DATA ORDERS ARE PERFORMED ONLY IF THE PREVIOUS 
1745 ORDER WAS THE APPROPRIATE DATA ORDER. IF THE ‘FORMAT’ PARAMETER 
1746 IS ZERO, THE PROGRAM WILL NOT SELECT WRITE HEADER & DATA (AND 
1747 WRITE CHECK HEADER & DATA) ORDERS. WHEN THE PROGRAM SELECTS 
1748 A_ WRITE HEADER & DATA ORDER, THE BUFFER SIZE IS FORCED TO 
1749 258.. THE PROGRAM WILL NOT PERFORM A MULTI-SECTOR FORMAT 
170 WRITE OPERATION. 
1752 é. "< FIRST Bo > PERFORMED AFTER A UNIT IS ASSIGNED WITH A 
1753 OR 'R* COMMAND IS NOT RANDOMLY SELECTED. THE PARAMETERS 
1754 FOR THE FIRST OPERATION ARE THE MINIMUM OR STARTING VALUES OF 
es THE VARIABLES. 
eld 8.4 DATA PATTERNS 
1759 THE PROGRAM SELECTS ONE OF THE FOLLOWING DATA PATTERNS TO WRITE 
1760 WHEN A WRITE ORDER IS SELECTED. THE ENTIRE BUFFER IS FILLED WITH 
1761 THE SELECTED PATTERN. WHEN DATA IS READ FROM THE DISK, THE PROGRAM 
1762 COMPARES DATA_ON A SECTOR BASIS: FROM THE FIRST 4 DATA WORDS OF 
1763 oy SECTOR, THE PROGRAM MATCHES THE DATA TO ONE OF THE FOLLOWING 
1764 TTERNS. 
1765 
1766 
1767 PAT 1 PAT 2 PAT 3 PAT 4 PATS PAT6 PAT? PAT 8 





J 3 
CZRMUAO RMOS/3/2 PERF EXER MACRO V03.01 11-APR-80 14:52:06 PAGE 3-31 








SEQ 0035 
1 768 —s—S eee oeeceeSlldldll6U SOOO OOS <a oe aseeoeoeoe ~e2eee2- ee ee ee aeseoeecoeoe 
1769 000001 177776 000000 133331 052525 155554 026455 066666 
1770 000003 177774 000000 133331 052525 155554 026455 066666 
1771 000007 177770 att 133331 052525 155554 026455 066666 
1772 000017 177760 177777 133331 125252 155554 151322 066666 
1773 000037 177740 177777 133331 125252 155554 151322 066666 
1774 000077 177700 177777 133331 125252 155554 151322 066666 
1 000177 177600 133331 052525 155554 026455 066666 
1776 000377 177400 000000 133331 052525 155554 026455 066666 
1777 000777 177000 177777 133331 125252 155554 151322 066666 
1778 001777 176000 177777 133331 125252 155554 151322 066666 
1 003777 174000 133331 052525 155554 026455 066666 
80 007777 170000 177777 133331 125252 155554 151322 066666 
1781 017777 160000 133331 052525 155554 026455 066666 
1782 037777 140000 177777 133331 125252 155554 151322 066666 
1783 077777 100000 000000 133331 052525 155554 026455 066666 
: re 177777 000000 177777 133331 125252 155554 151322 066666 
ies PAT 9 PAT 10 PAT 11 PAT 12 PAT 13 PAT 14 PAT 15 
1 000001 177776 172666 077777 153333 000000 177777 
1789 000002 177775 155555 137777 066667 177777 000000 
1790 000 177773 172666 157777 153333 177777 000000 
1791 000010 177767 155555 167777 7 1 000000 
1792 000020 177757 172 173777 153333 177777 000000 
1793 000040 177737 155555 175777 ? 177777 000000 
1794 000100 177677 172 176777 + 153333 000000 
1795 000200 177577 155555 177377 ? 177777 000000 
796 000400 177377 172 177577 153333 177777 000000 
797 001000 176777 155555 177677 066667 177777 000000 
2000 175777 172 177737 153333 177777 000000 
000 173777 155555 177757 7? 177777 000000 
010000 167777 172666 177767 153333 177777 000000 
020000 157777 155555 177773 ? 177777 000000 
040000 137777 172666 177775 153333 177777 000000 
100000 077777 155555 177776 066667 177777 000000 


9.1 RH/RM DRIVER 


BelaoraNcess 


THIS DOCUMENT IS THE USER'S GUIDE FOR THE RH/RM DRIVER. 
9.2 TO INITIALIZE THE DRIVER: 
JSR PC,RMINIT 
RETURN 
UPON RETURN YOU MUST EXAMINE THE ‘DRVSTA’' TABLE TO DETERMINE 
THE DRIVES THAT ARE ONLINE FOR TESTI THE "DRVSTA’ TABLE IS 


NG. 
EIGHT BYTES; ONE BYTE PER DRIVE. THE STATE OF EACH DRIVE WILL 
BE INDICATED AS FOLLOWS: 


a os SS oh ts 
00 00 Oo 00 Co Co CO C0 CO Co 
aad aad aah 8 al cn nd ed a 


SWOONAUSWN—O 


8 


1821 DRVSTA DRIVE STATE 
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SEQ 0036 
=0 OFFLINE, DRIVE 
IS NOT AN RMO5/3/2, OR 
NONEXISTENT DRIVE 
<0 UNSAF E 


THE DRIVE TYPE IS DEFINED IN AN 8 BYTE LONG TABLE TAGGED ‘DRVTYP*. 
Lj TABLE CONTAINS ONE BYTE FOR EACH DRIVE AND IS INDEXED BY THE 
DRIVE NUMBER. ENTRIES ARE ENCODED AS FOLLOWS: 


DRVTYP CONDITION 
0 NONEXISTENT DRIVE 
4 RMO3 
5 RMO2 
7 RMOS 
-1 NOT AN RMO5/3/2 


THE "RMINIT' ROUTINE WILL DO A READIN PRESET AND WILL SET FMT16. 


AFTER THE DRIVER HAS BEEN INITIALIZED, IT IS CALLED USING THE 
FOLLOWING SEQUENCE. 


CALL: 
JSR RO,RMOS sMAKE THE CALL 
PNTDPB ;ADDRESS OF DPB* 
RETURN1 sRETURN IF QUEUE IS FULL 
RETURN2 ;RETURN IF REQUEST IS IN 


sQUEUE OR THERE IS AN 
ERROR CONDITION 


*DPB (DATA PARAMETER BLOCK) 


PNTDPB: .BYTE 0 ;(0) DRIVE NUMBER 

-BYTE 0 :(1) OFFSET VALUE OR FMT16, ECT, AND HCI 

-BYTE 0O :(2) COMMAND 

BYTE 0 3(3) PSEL AND A17 AND A16 

-WORD 0O 7(4) WORD COUNT (MUST BE NEG.) 

-WORD 0 3 (6) FER ADDRESS OR 
sREGISTER TABLE POINTER 

-BYTE O 3(10) SECTOR ADDRESS OR 
sFIRST REG. INDE 

BYTE 0 :(11) TRACK ADDRESS OR 
; LAST INDEX 

-WORD 0 3412) CYLINDER ADDRESS 

-WORD 0 7(14) TABLE POINTER 
sPOINTS TO THE FIRST OF TWENTY 
7LO oon THE DRIVER 
71S TO STORE THE RH/RM 
sREGISTERS ON AN ERROR. IF LEFT 
;ZERO REGISTERS ARE NOT SAVED. 

-WORD 0O : (16) STATUS/ERROR INDICATOR 
:BIT T15=1=> oe OCCURRED 
;B1T07=1=>DONE 
7B1T14-B1T09 AND Oj Tos 81103 
s INDICATE TYPE OF E 


a 
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1882 9.4 THE DRIVER PROVIDES A SOFTWARE TIMEOUT CAPABILITY. 

1883 TO UTILIZE THIS CAPABILITY YOU MUST SUPPLY THE "RM TIMER'’ ROUTINE 
1884 WITH THE ELAPSED TIME IN THE FOLLOWING MANNER: 

1886 MOV #16.,-(SP) :16 MILLISECONDS BE TWEEN 
1888 JSR PC,RMTMR “CALL THE TIMER ROUTINE 
1890 IT SHOULD BE NOTED THAT YOU MUST PROVIDE THE CODE 19 DRIVE THE 
1891 CLOCK. AND THE ELAPSED TIME MUST BE IN MILLISECOND 

1892 THE DRIVER WILL SET THE TIMEOUT TO 1 SECOND FOR ALL +50S1 TIONING 
1893 AND DATA TRANSFER OPERATIONS AND WILL SET THE TIMOUT TO 30 
1894 SECONDS. FOR ERROR RECOVERY OPERATIONS. 

189% 

1897 9.4.1 EXAMPLE = WRITE 1000. WORDS 

1899 1$: JSR RO,RMOS :CALL THE DRIVER 

1900 WRTDPB 208 ADDRESS 

1901 1$ WAIT FOR QUEUE IF 

1902 2$: TST WRTDPB+16 WAIT FOR COMMAND ror COMPLETE 
1903 BEQ 2$ 

1904 BMI ERROR1 ZERROR OCCURRED 

1905 : 

1906 ; 

1907 ; 

1908 

1909 WRTDPB: .BYTE 5 :DRIVE #5 

1910 [BYTE 0 : 

1911 “BYTE 161 [WRITE COMMAND 

1912 “BYTE 0 : 

1913 ;WORD =1 ‘WORD COUNT 

1914 “WORD WRTBUF ‘BUFFER ADDRESS 

1915 ‘BYTE 3 : SECTOR 

1916 "BYTE 5 + TRACK 

1917 “WORD 400 [CYLINDER 

1918 “WORD ERRTBS TERROR TABLE 

1919 “WORD 0 SSTATUS/ERROR INDICATOR 
192 ALTERNATE DPB SETUP 

1923 WRTDPB: .WORD 5 :THIS SETUP ACHIEVED 

1924 “WORD WRITE SEVERYTHING THE 

1925 "WORD 1000. TABOVE TABLE DID, BUT 
1926 “WORD WRTBUF SIN A CLEANER FORMAT 

1927 ‘BYTE 3,5 

1928 “WORD 400,ERRTBS,O 

1930 9.5 RH/RM REGISTERS 


INDEX 


ALNO 


SEQ 0037 


oO 
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9.6 


9.7 


RMCS2 10 
RMDS 12 
RMER1 14 
RMAS 16 
RMLA 20 
RMDB 22 
RMMR 1 54 
RMDT 26 
RMSN 30 
RMOF 32 
RMDC 34 
RMHR 36 
RMMR 2 40 
RMERO 42 
RMEC1 44 
RME C2 46 
COMMANDS PERFORMED BY THE DRIVER 
COMMAND CODE 
NO OPERATION 101 
UNLOAD 103 
SEEK 105 
RECAL IRATE 107 
DRIVE CLEAR 111 
RELEASE . 113 
OFFSET 115 
RETURN TO CENTER 117 
READIN PRESET 121 
PACK ACKNOWLEDGE 123 
SEARCH 131 
GET REGISTER(S) 141 
SET FORMAT 143 
SELECT DRIVE 145 
WRITE CHECK DATA 151 
WRITE CHK HEADER & DATA 153 
WRITE DATA 161 
WRITE HEADER & DATA 163 
READ DATA 171 
READ HEADER & DATA 173 
N = HOUSEKEEPING 
P = POSITIONING 
D = DATA TRANSFER 
S = SPECIAL PROVIDED BY THE DRIVER 


DPB STATUS/ERROR INDICA 


TOR WORD 


COMMAND TYPE 


VVIIIINNNVS]AZVVZZVIVZ] 


THIS INDICATOR WILL INFORM THE USER OF THE RESULTS OF THE REQUEST. 
Hy ee ACCOMPLISHED BY SETTING VARIES BITS OF THE INDICATOR TO 


MEANING IF ON A *‘I"* 


SEQ 0038 












1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 


2005 


BOE CE EERE REE: 


— So SS ot st 
WONAULWN oO 


2020 


r 
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15 


1441) 


13(1) 


12(2) 


11(2) 
10(2) (4) 


9(3) (4) 
8(4) 

7 

6(2) 
5(2) 


4(2) 
3(2) 


(2) => 


(3) => 


(4) => 





ERROR OCCURRED 
DONE (B1T07=0); BITS 14-10 SPECIFIES TYPE 
DONE (BITO7=1); BITS 06-03 SPECIFIES TYPE 


USER MADE A REQUEST FOR A FUNCTION TO BE 
PERFORMED ON AN OFFLINE OR UNSAFE DRIVE 


USER MADE A REQUEST FOR A FUNCTION 

TO BE PERFORMED ON A DRIVE THAT HAS AN 
UNLOAD REQUEST IN QUEUE. 

PERSISTENT UNSAFE CONDITION EXIST. 
UNCORRECTABLE PARITY ERROR OCCURRED 
FATAL PARITY ERROR. A MASSBUS CLEAR — 
PERFORMED, ALL QUEUES WERE EMPTIED, 

ALL DRVACT'S SET TO THE IDLE STATE 
SOFTWARE TIMEOUT OCCURRED ON THIS DRIVE 
SOFTWARE TIMEOUT OCCURRED ON ANOTHER DRIVE 
DONE 

ERROR OCCURRED DURING AN I/0 OPERATION 


ERROR OCCURRED DURING AN OPERATION 
OTHER THAN 1/0. 


_ CORRECTABLE UNSAFE CONDITION OCCURRED 


DRIVE ERROR OCCURRED THAT CAUSED AN 
AUTOMATIC *RECALIBRATE’’ SEQUENCE 


PORT REQUEST TIMEOUT. THE DRIVER REQUESTED 
THE DRIVE BUT THE OPPOSITE PORT DID NOT 
RELEASE THE DRIVE WITHIN 20 SECONDS. 


NON-EXISTENT DRIVE REQUESTED. USER MADE 
A REQUEST FOR A NON-EXISTENT DRIVE. 


REQUEST WASN'T PUT IN QUEUE. (RH/RM 
REGISTERS WERE NOT SAVED) 


REQUEST QUEUE HAS BEEN EMPTIED. THE DRIVER 
ISSUED A ‘DRIVE CLEAR'' TO THE DRIVE. 

NOTE: ALL RH/RM REGISTERS ARE SAVED 

AS PER DPB+14 BEFORE THE ‘DRIVE CLEAR"’. 


REQUEST QUEUE HAS BEEN EMPTIED. THE 
DRIVER ISSUED A MA INIT. ALL 


MASSBUS_ IN 
‘RH/RM REGISTERS FOR THE DRIVE WERE 


SAVED AS PER DPB+14 BEFORE THE INIT. 
A ‘RECALIBRATE’* SHOULD BE ISSUED 


SEQ 0039 


— r - 
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SEQ 0040 

3055 BEFORE ANY OTHER COMMAND. 
2035 9.8 ERROR CALLS MADE BY THE DRIVER. 
$032 THERE ARE A FEW ERRORS THAT CAN OCCUR THAT CAN NOT BE INDICATED IN A DPB. 
2059 wen THIS TYPE OF Enron IS DETECTED BY THE DRIVER IT WILL MAKE 
2060 AN ERROR CALL OF FORM "ERROR N’', WHERE ‘N’' IS THE ERROR 
2061 NUMBER AND THE OE RROR WILL BE AN EMT INSTRUCTION. 
2063 
2064 N TYPE DATA AVAILABLE 
2065 -_ _——=—— -”-——_— —— = —__ 
2066 
2067 1 RH70 INTERRUPT *R4= RMCS1'S ADDRESS 
see OCCURRED (RHAS=0) 
2070 2 UNEXPECTED ATTENTION R1= DRIVE NUMBER 
2071 OCCURRED R3= ATA BIT 
2072 *R4= RMCS1'S ADDRESS 
2073 R5= (RMAS) 
2074 RRS = 
2075 RMERRS+2=RMER1 
2076 RMERRS+4=RMER2 
sor? RMERRS +6=RMMR 
2079 3 MASSBUS PARITY RD.ADR= ADDRESS OF REG. READ 
Sosy ERROR (MCPE=1) RD.WRD= WORD READ 
2082 4 MASSBUS PARITY WRT.AD= ADDRESS OF REG. WRi “=N 
2083 ERROR (PAR=1) WRT.WD= WORD WRITTEN 
goes RD.WRD= WORD READ BACK 

5 ADDRESS PLUG CHANGE R1= DRIVE NUMBER 
2087 BIT SET (‘OPE’ ERROR) R3= ATA BIT 
2088 . #RG= RMCSTS S ADDRESS 
2089 R5S= (RMAS) 

RMERRS =RMDS 

2091 RMERRS+2=RMER1 
2092 RMERRS+4=RMER2 
2093 RMERRS+6=RMMR2 
2095 * THIS IS THE ACTUAL UNIBUS ADDRESS (176700) 
2097 a 


=m 
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SEQ 0041 
| 6! ;PROGRAM REVISION #001 
| 63 - TITLE a 5 wee ate PERF EXER 
; SCOPYRIGHT ( 1980 
:*DIGITAL EOUSPMENT CORP. 
;*MAYNARD, MASS. 01754 
*® 
; *PROGRAM BY MIKE LEAVITT 
: oTH HIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11=DZQAC-C4), 1980. 
46 *SBTTL OPERATIONAL SWITCH SETTINGS 
** 
:* SWITCH USE 
*“® - as eee men wee ee 
ie 15 HALT ON ERROR 
;* 13 INHIBIT ERROR TYPEOUTS 
;* 10 BELL ON ERROR 
65 ad 7 han a ALL DATA COMPARE dana 
66 7* 6 T CHANGE P, TERS (LOOP ON PRESENT VALUES) 
67 :* 5 7? PARTIAL REGISTER DISPLAY IF ERROR 
68 s@ B. NO ECC CORRECTION RESULTS DISPLAYED IF ERROR 
69 3* 4 - DO NOT CHECK FOR MAXIMUM 
70 3* 8. DROP DRIVE AT END OF TESi 
71 g@ 3 A. DISPLAY ERROR SECTOR IF ‘DCK*, ‘DTE*. OR ‘WCF* ERROR 
ie 3@ 8. Oe ie SECTOR IF ‘DCK* ERR UNCORREC TABLE AFTER 
* 
74 i* C. IF DATA COMPARE ERROR & SWO7 SET. DISPLAY 
75 3s* REMAINDER OF BUFFER 
76 ;* 2 A. 00 NOT TYPE UNIT STATUS AT PROGRAM STAR 
77 * B. DO NOT TYPE PERFORMANCE REPORT AFTER SPECIFIED TIME 
78 :* 1 INHIBIT DATA COMPARSION AFTER READ ORDERS 
pe 7* 0 READ ONLY MODE 
81 -SBTTL BASIC DEFINITIONS 
;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 ee 
001100 STACK = 1100 
104000 ERROR = EMT ;;BASIC DEFINITION OF ERROR CALL 
000004 SCOPE = JOT 3:BASIC DEFINITION OF SCOPE CALL 
; *MISCELLANEOUS DEFINITIONS 
000011 HT = 11 3:CODE FOR nN. TAB 
000012 LF = ig 7:;CODE FOR LINE FEED 
000015 CR = 1 7:CODE FOR CARRIAGE RETURN 
000200 CRLF = 200 3;CODE FOR CARRIAGE RETURN-LINE FEED 
177776 PS = 177776 3:PROCESSOR STATUS WORD 
177776 PSwW=PS 
177774 STKLMT = 177774 23 STACK LIMIT REGISTER 
177772 PIRQ = 177772 ;PROGRAM INTERRUPT REQUEST REGISTER 
177570 = 177570 +: HARDWARE yt ty REGISTER 
177570 DDISP = 177570 ; ;HARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEF INITIONS 
000000 RO = 20 ;GENERAL REGISTER 
000001 R1 = Z1 GENERAL REGISTER 


se — 
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'BASIC DEFINITIONS 





| 
00000 R =% S:GENERAL REGISTER 
| 00000 R =% 7;GENERAL REGISTER 
| 000004 RG = % ::GENERAL REGISTER 
000005 RS = %5 :GENERAL REGISTER 
| 000006 R6 = % 3: GENERAL REGISTER 
000007 R7 = %7 SGENERAL REGISTER 
000006 SP = %6 t:STACK POINTER 
000007 PC = %7 +: PROGRAM COUNTER 
;*PRIORITY LEVEL DEFINITIONS 
000000 PRO = 0 ::PRIORITY LEVEL 0 
000040 PR1 = 40 7 PRIORITY LEVEL 1 
000100 PR = 100 t:PRIORITY LEVEL H 
000140 PR = 140 ::PRIORITY LEVEL 
200 PRG = 200 + PRIORITY LEVEL 4 
000240 PR5 = 240 t:PRIORITY LEVEL 5 
300 PR6 = 300 s PRIORITY LEVEL 6 
000340 PR7 = 340 ; PRIORITY LEVEL 7 
*’ SWITCH REGISTER’’ SWITCH DEFINITIONS 
100000 Sw15 =: 100000 
040000 Swi4 = =: 40000 
020000 Sw13 Ss = _ 20000 
010000 Swi2 Ss = _~10000 
004000 Sw11 = 4000 
2000 sw10 = =_: 2000 
001000 swo9 = 1000 
000400 swo8 = =_—«& 00 
000200 SwO7 Ss = -200 
000100 sw06 = =_—«100 
000040 swoS Ss = 40 
000020 sw04 = 20 
000010 swo3. =: 10 
000004 SwO2 = 
000002 SwO1 = 2 
000001 swoO 38 = 1 
001000 Sw9=SWO9 
000400 Sw8=SW08 
000200 SwW7=SwWO7 
000100 SW6=S 
000040 Sw5=SW05 
000020 Sw4=S 
000010 SwW3=SW03 
000004 SwW2=Sw02 
000002 Sw1=Sw01 
000001 = 
Z*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15 = 100000 
040000 BIT14 = 40000 
020000 BIT13 = 20000 
010000 BIT12 = 10000 
000 BIT11 = 4000 
002000 BIT10 = 2000 
001000 BITO9 = 1000 
00 BITO8 = 400 
000200 BIT07,_ = 200 





SEQ 0042 


—— 
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BASIC DEFINITIONS 


82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 


000100 
0 


Nes 


B1T0=81T00 


C 
PIRQVEC 
- SBTTL 


A ll TRAP VECTOR ADDRESSES 

iT OUT a. OTHER ERRORS 

:7RESERVED AND 
:"'T'' BIT 


7: TRACE TRAP 
; ;BREAKPO 
Sto 1 ta TRAP (IOT) **SCOPE** 


+ EMULATOR TRAP (EMT) **ERROR** 
;""TRAP’* TRAP 


7: TTY KEYBOARD VECTOR 
7: TTY PRINTER VECTOR 
; PROGRAM INTERRUPT REQUEST VECTOR 
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RH11/RH70 REGISTERS 
CONTROL AND STATUS REGISTER 1 (RMCS1) 


Ee tien 
3838 


S 
3 


D COUNT REGISTER (RMWC) 


-— Ny 
Oo 


ILLEGAL INSTRUCTIONS 


INT TRAP (BPT) 


: INTERRUPT ENABLE (BIT #6) 

READY (BIT #7) 

HIGH ORDER BUS ADDRESS BIT (BIT #8) 
HIGH ORDER BUS ADDRESS BIT (BIT #9) 
SPORT rig (BIT #10) 

;MASSBUSS PARITY ERROR (BIT #13) 

: TRANSFER ERROR (BIT #14) 

SPECIAL CONDITION (BIT #15) 


: WOR 
: (EACH BIT IS CALLED BY BIT NUMBER) 


BUS ADDRESS REGISTER (RMBA) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


CONTROL AND STATUS REGISTER 2 (RMCS2) 


UNIT SELECT (BIT #0) 
UNIT SELECT (BIT #1) 
UNIT SELECT (BIT #2) 
BUS ADDRESS INCREMENT INHIBIT (BIT #3) 


SEQ 0043 


i a i i a 


F 
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|RH11/RH70 REGISTERS * SEQ 0044 
| 108 000020 PAT = 20 ;MASSBUS PARITY TEST (BIT #4) 
| 109 000040 CLR = 40 [CLEAR (BIT #5) 
110 000100 IR = 100 SINPUT READY (BIT #6) 
11 000200 OR = 200 SOUTPUT READY (BIT #7) 
112 000400 MDPE = 400 [MASS BUS PARITY ERROR (BIT #8) 
113 001000 MXF = 1000 [MISSED TRANSFER ERROR (BIT #9) 
114 002000 PGE = 2000 <PR ERROR (BIT #10) 
115 004000 NEM = 4 [NON EXISTENT 11) 
116 010000 NED = [NON EXISTENT DRIVE (BIT #12) 
117 020000 UPE = 20000 TUNIBUS PARITY ERROR (BIT #13) 
118 640000 WCE = 40000 [WRITE CHECK ERROR (BIT #14) 
119 100000 DLT = 100000 “DATA LATE (BIT #15) 
121 :DATA BUFFER REGISTER (RMDB) 
12 (EACH BIT IS CALLED BY BIT NUMBER) 
12 .SBTTL RM REGISTERS 
139 :CONTROL AND STATUS 1 REGISTER. (#00) 
128 000001 GO = 1 :G0 BIT (BIT #0) 
129 000002 FO =2 [FUNCTION CODE BIT #1 
130 000004 F1 = 4 [FUNCTION CODE BIT #2 
131 000010 F2 = 10 [FUNCTION CODE BIT #3 
132 000020 F3 = 20 SFUNCTION CODE BIT #4 
133 000040 FG = 40 [FUNCTION CODE BIT #5 
13% 004000 DVA = 4000 [DEVICE AVAILABLE (BIT #11) 
136 :DRIVE STATUS REGISTER (RMDS1) (#01) 
138 1 OFFON = 1 :OFFSET ON (BIT #0) 
139 000100 Ww = 100 VOLUME VALID (BIT #6) 
140 000200 DRY = 200 ‘DRIVE READY (BIT #7) 
141 000400 DPR = 400 [DRIVE PRESENT (BIT #8) 
142 001000 PGM = 1000 [PROGRAMABLE (BIT #9) 
143 002000 LBT = 2000 : SECTOR TRANSFERRED (BIT #10) 
144 000 WRL = 4000 ‘WRITE LOCK (BIT #11) 
445 010000 MOL = 10000 [MEDIUM ON-LINE (BIT #12) 
1 020000 PIP = 20000 [POSITIONING OPERATION IN PROGRESS (BIT #13) 
147 040000 ERR = 40000 [COMPOSITE ERROR (BIT #14) 
148 100000 ATA = 100000 TATTENTION ACTIVE (BIT #15) 
130 ;ERROR REGISTER #01 (RMER1) (#02) 
152 000001 ILF =1 ZILLEGAL FUNCTION (BIT #0) 
153 000002 ILR =2 TILLEGAL REGISTER .(BIT #1) 
154 000004 =% ;REGISTER MODIFICATION REFUSED (BIT #2) 
155 000010 PAR = 10 SPARITY ERROR (BIT #3) 
156 000020 FER = 20 “FORMAT ERROR (BIT #4) 
157 000040 WCF = 40 [WRITE CLOCK FAIL (BIT #5) 
158 000100 ECH = 100 [ECC HARD ERROR (BIT #6) 
159 000200 HCE = 200 HEADER C ERROR (BIT #7) 
160 00 HCRC = 400 SHEADER CRC ERROR (BIT 
161 001000 AOE = 1000 TADDRESS OVERFLOW ERROR (BIT #9) 
162 002000 IAE = 2000 - S INVALID ADDRESS ERROR (BIT #10) 
163 000 WLE = 4000 [WRITE LOCK ERROR (BIT #11) 
164 010000 DTE = 0 ‘DRIVE TIMING ERROR (BIT #12) 





1 





o-n 
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RM REGISTERS SEQ 0045 
165 020000 OPI = 20000 OPERATION INCOMPLETE _ #13) 
166 040000 UNS = 40000 ;DRIVE UNSAFE (BIT #14 
7 100000 DCK = 100000 ZDATA CHECK ERROR BIT 15) 
1$8 sMAINTAINABILITY REGISTER (RMMR1) (403) 

171 

172 sATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 

= 1 0 

000002 ATl =2 SDEVICE 1 (BIT # 
000004 AT2 = 4 sDEVICE 2 (BIT #2) 
C00010 AT3 = 10 DEVICE 3 (BIT #3) 
000020 ATS = 20 sDEVICE 4 (BIT #4) 
000040 ATS = 40 :DEVICE 5 (BIT #5) 
000100 AT6 = 100 sDEVICE 6 (BIT #6) 
000200 AT7 = 200 DEVICE 7 (BIT #7) 


DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (405) 


:DRIVE TYPE REGISTER (RMDT) (#06) 


ee ee eee eee) 
BELKARATLESELRALATSSISVRAB 


A eT pend OF 

| 

| 

| 

| 

| i 

000001 ATO :DEVICE Q (BIT #0) 


000001 DTOO = 1 DRIVE TYPE NUMBER BIT 1 

000002 DTO1 =2 DRIVE TYPE NUMBER BIT 2 

000004 DT02 = 4 DRIVE TYPE NUMBER BIT 3 

000010 DTO3 = 10 DRIVE TYPE NUMBER BIT 4 

000020 DT04 = 20 DRIVE TYPE NUMBER BIT 5 

0 DTO5 =4 DRIVE TYPE NUMBER BIT 6 
000100 DT06 = 100 DRIVE TYPE NUMBER BIT 7 
000200 DT07 = 200 :DRIVE aa | NUMBER BIT 8 
00 DT08 =4 DRIVE TYPE NUMBER BIT 9 

004000 DRQ = 4000 :DRIVE REQUEST a (BIT #11) 

020000 MOH = 20000 ;MOVING HEAD (BIT #13) 

040000 TAP = 40000 : TAPE DRIVE (BIT Wa) 
oy 100000 NSA = 100000 NOT SECTOR ADDRESSED (BIT #15) 
sos ;LOOK~AHEAD REGISTER (RMLA) (#07) 
204 000100 SC1 = 100 SECTOR COUNT FIELD 0 (BIT #6) 
205 000200 SC2 = 200 SECTOR COUNT FIELD 1 (BIT #7) 
206 000400 SC04 = 400 SECTOR COUNT FIELD 2 (BIT #8) 
207 001000 $C10 = 1000 SECTOR COUNT FIELD 3 (BIT #9) 
$8 002000 $C20 = 2000 SECTOR COUNT FIELD 4 (BIT #10) 
210 SERIAL NUMBER REGISTER (RMSN) (410) 
211 a IS CALLED BY BIT NUMBER) 
$15 OFFSET REGISTER (RMOF) (#11) 
214 000001 OFFDIR = 1 OFFSET DIRECTION 
215 002000 HCI = 2000 HEADER COMPARE INHIBIT (BIT #10) 
216 004000 ECI = 4000 ao CORRECTION CODE INHIBIT (BIT #11) 
a4 010000 FMT16 = 10000 FORMAT BIT (BIT #12 
219 DESIRED CYLINDER ADDRESS (RMDC) rte 


220 
221 


: (EACH BIT IS CALLED BY BIT NUMBER) 





—_—_ 
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=0 
;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A *' -+2,HALT"’ 
ey type TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
aati * CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


RM REGISTERS SEQ 0046 
222 CURRENT CYLINDER ADDRESS (RMCC) (#13) 
$3 7 (REGISTER CURRENTLY NOT USED) 
$53 7RM ERROR REGISTER #02 (RMER2) (#15) 
227 000010 OPE = 10 
228 000200 DvC = 200 
229 002000 LBC = 2000 
230 004000 LSC = 4000 
231 010000 IvCc = 10000 
232 020000 DPE = 20000 
$33 040000 SK] = 40000 SEEK INCOMPLETE (BIT #14) 
235 ECC POSITION REGISTER (RMEC1) (416) 
$36 7 (EACH BIT IS CALLED BY BIT NUMBER) 
238 ECC PATTERN REGISTER (RMEC2) (#17) 
44 7 (EACH BIT IS CALLED BY BIT NUMBER) 
s} .SBTTL RM DRIVER COMMANDS 
243 000101 = 101 :NO OPERATION 
244 000105 SEEK = 105 
245 000107 REC = 107 ‘RECALIBRATE 
246 000111 DRVCLR = 111 DRIVE CLEAR 
247 000113 RELSE = 113 ; RELEASE 
248 000115 OFFSET = 115 SOF FSET 
249 000117 RTC = 117 ;RETURN TO CENTER LINE 
250 000121 READIN = 121 READ IN PRESET 
251 000123 ACK = 123 PACK ACKNOWLEDGE 
252 000131 SEARCH = 131 7 SEARCH 
253 000141 GETREG = 141 GET REGISTERS 
254 000143 SETFMT = 143 SET FORMAT (& ECI OR HCI) 
255 000145 SELDRV = 145 ; SELECT DRIVE 
256 000151 wCK = 151 WRITE CHECK DAT 
257 000153 WCKHD = 153 “WRITE CHECK MEADER & DATA 
258 000161 WRIDAT = 161 WRITE DATA 
259 000163 WRTHD = 163 [WRITE HEADER & DATA 
260 000171 RDDAT = 171 READ DAT 
4 000173 RDHD = 173 READ MEADER & DATA 
263 176700 ABASE = 176700 
264 000254 AVECT1 = 
265 
267 
268 .SBTTL TRAP CATCHER 
000000 
000174 
000174 000000 DISPREG: .WORD 0 7: SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: .WORD 0 7 SOFTWARE SWITCH REGISTER 


-SBTTL STARTING ADDRESS(ES) 





] 


a: 
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CZRMUAO RMOS/3/2 PERF EXER 
STARTING ADDRESS(ES) 


000137 003636 
000137 003626 


BEEEEEE 
2258888 


JMP @ASTART1 3; JUMP TO STARTING ADDRESS OF PROGRAM 
JMP @ASTART CHANGE THE RH ADDRESS 
-SBTTL ACT11 HOOKS 


FEAR RAE RERE EERE 


: HOOKS “acs, BY ACT11 


veC= SAVE PC 

SENDAD :217)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
“WORD 40000 ::2)SET LOC. 352 TO 40000 

" =$SVPC :: RESTORE P 


-=1100 
-SBTTL APT PARAMETER BLOCK 


ERR ERE AREER RERER ERE REE EREREERERR 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
Ett iti i titi itis c lett i tite t ttt it iti titi i titi ttt itt ty 
- $X=. see CURRENT LOCATION 
-=24 2-SET POWER FAIL TO POINT TO START OF PROGRAM 
200 :FOR APT START UP 
-=44 :sPOINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR :;POINT TO APT HEADER BLOCK 
-=.$X | 3;RESET LOCATION COUNTER 
SAA AARRER AREER EERE EEE EER EER EEE ERR EERE EERE REE 
:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAPTHD: 
SHIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: .WORD $MAIL  ;;ADDRESS OF APT MAILBOX (BITS 0-15) 


STSTM: <:WORD 180. >:RUN TIM OF LONGEST TEST 
$PASTM: | 


on 


WORD 180. ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 


SUNITM: .WORD 180. :;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 


-WORD $ETEND-$MAIL/2 ;;LENGTH MAILBOX~ETABLE (WORDS) 
TAB.XY=. 2 CMTAGSTARING ADDRESS 





CZRMUAO_RMOS/3/2 PERF EXER 
COMMON TAGS 


0 


ssesesessssssssss 


8888888s 


BEE EEEEEEEEEEE 


001114 


J 4 
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-SBTTL COMMON TAGS 


J PAAR REERERREEEEEREEEEREEREEEREREEREREERRREEKIE REE 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
PROGRAM. 


*THIS 
:*USED IN THE 
oe =TAB . XY 
SCMTAG: 
-WORD 0 
STSTNM: .BYTE 0O 
SERFLG: .BYTE O 
SICNT: .WORD O 
SLPADR: .WORD 0O 
SLPERR: .WORD 0O 
SERTTL: .WORD 0 
SITEMB: .BYTE O 
ERMAX: .BYTE 1 
SERRPC: .WORD 0O 
SGDADR: .WORD 0 
DADR: .WORD 0 
S$GDDAT: .WORD 0 
DAT: .WORD 0 
-WORD 0 
-WORD 0 
S$AUTOB: .BYTE 0O 
SINTAG: .BYTE 0O 
-WORD 0 
8 «WORD DSWk 
DISPLAY: .WORD DDISP 
TKS: 177560 
$TKB: 177562 
$TPS: 177564 
$TPB: 177566 
Ls VTE © 
SFILLS: .BYTE 2 
SFILLC: .BYTE 12 
STPFLG: .BYTE 0 
STMPO D O 
$BELL: .ASCIZ <207><377><377> 
SQUES: .ASCII /?/ 
SCRLF: .ASCII <15> 
SLF : eASCIZ <12> 


“SBTTL APT MAILBOX~ETABLE 


SIAR RARER EEREEEEEEEEREEEEEREAREREREEREREEREREEEEEEEEEEERREEE 


SMSGLG 


SETABLE : 


AMSGTY 


:2START OF COMMON TAGS 
:sCONTAINS THE ey NUMBER 


3-CONTAINS ERROR FLAG 
3-CONTAINS SUBTEST ITERATION COUNT 
3:CONTAINS SCOPE LOOP ADD 


ST 
7: CONTAINS PC OF LAST ERROR INSTRUCTION 
zzCONTAINS ADDRESS OF ‘GOOD" DATA 
3. CONTAINS Sooen? eaten *BAD' DATA 


CONTAINS ‘BAD’ DATA 
: sRESERVED--NOT TO BE USED 


3 sAUTOMATIC MODE INDICATOR 
22 INTERRUPT MODE INDICATOR 


:sADDRESS OF SWI/CH REGISTER 
+ sADDRESS OF + tal REGISTER 
is KBD STATUS 
:TTY KBD BUFFER 
Z:TTY PRINTER STATUS REG. ADDRESS 
:eTTY PRINTER BUFFER we ADDRESS 


‘FUSER DEF INE 
23 CODE FOR BELL 


; QUEST MARK 
ee ee eee RETURN 
NE FEED 


TTI IIT LITT TTI TE LELITT LILI TT LTT TTT TTT TT TTT TTT TTT TTT TTT TTT 


MAILBOX 
ME SSAGE TYPE CODE 
RROR NUMBER 


7sFATAL E 


AFATAL 
ATESTIN ;;TEST NUMBE 
APASS ;; 


ADEVCT 
AUNIT ;;1/0 


AMSGAD 
AMSGLG 


STAPT ENVIRONMENT TABLE 


SEQ 0048 


ee ae 


Se GRE HA 
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APT MAILBOX~€ TABL 


001226 
0012 
0012 
001232 
001 


000 
000 
000000 


000000 
000000 


88 


SENV: 


-BYTE 
-BYTE 
- WORD 
- WORD 
- AORD 


AMAMS1 
AMTYP1 


fi BYTE 
;zENVIRONMENT MODE BITS 
33 APT yg REGISTER 
2 ;USER mR . ITCHES 
YPE, i hee 
BITS Tech T 
1706201. “1i/05= Fee 7 E005, 11/40906, 19745005 
7 /70= 06.PD Q=07,0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
;HIGH ADDRESS,M.S. BYTE 
MEM. BLKAI 
MEM. TYPE BYTE < (HIGH BYTE) 


-BLKA 
DR.=3 BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
;sHIGH i ADDRESS -S. BYTE 


TYPE ,BL 
: MEM -LAST ADDRESS ,BLK#2 
HIGH ADDRESS.M.S.BYTE 
7 2MEM. TYPE ,BLKA3 
;:MEM.LAST ADDRESS .BLKA3 
; HIGH ADDRESS, gm -BYTE 


ORI 
SE ADDRESS OF EQUIPMENT UNDER TEST 
CE MAP 


;;CONTROLLER DESCRIPTION WORDA1 
;- CONTROLLER DESCRIPTION WORD#2 


SEQ 0049 





CZRMUAO RMOS/3/2 PERF EXER 


USER DEFINED TAGS 


0 


176700 
000254 
172540 
172542 
000104 
Ano sne 


00 
177777 
177777 


000000 000000 
000000 000000 


-SBTTL 


DRIVE 


ZRO : 
FRSTER: 


SAVER1: . 
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USER DEFINED TAGS 


WORD 176700 ;FIRST ADDRESS OF RH/RM REGISTERS 
WORD 254 ;VECTOR ADDRESS 


: RES 

-WORD 172540 [ADDR OF KW11-P STATUS REGISTER 

«WORD 172542 [ADDR OF KW11=P COUNTER BUFFER 

“WORD 104 SADDR OF KW11=P VECTOR 

.WORD 177546 ADDR OF KW11=L STATUS REGISTER 

[WORD 100 [ADDR OF KW11=L VECTOR 

;WORD 1 :'O" IF KW WIP IS ON SYSTEM 

-WORD <7 =O" IF A CLOCK IS AVAILABLE 

“WORD 60. :74(8) IF 60" rh SYSTEM. 628) IF 50 HZ SYSTEM 

;WORD 0 i TYPE STATISTICS’ INDIC 

“WORD 0 C INDICA TORS 

WORD 0.0.0.0.0 ” ;OPERATOR ENTERED DATE 

-WORD 0,0,0,0 ;OPERATOR ID 

=SUNIT ;DRIVE # STORAGE: ERRORS 1-5 & 10 
7SAME AS USED IN APT 

.WORD 0 SATIN REG STORAGE: ERRORS 1-5 & 10 

“WORD 0 [DRIVE # STORAGE FOR PRINTOU 

“WORD 0 TERROR RETRY REGISTER MASK 

“BYTE 0.0 ZERROR RETRY LIMIT IN THE LOWER BYTE 
[RETRY COUNT IN THE UPPER BYTE 

.WORD 3 [MAXIMUM TIME IN QUEUE VALUE 

-WORD 0 SSTORE LAST MEMORY ADDRESS HERE 

“WORD 0 :C RH/RM UNIBUS ADDRESS FLAG 

“WORD 0 : "CONTROL C° F 

.WORD 0 ‘BAD SECTOR/TRACE. F LAG 

“WORD 0 : COUNT STORED HERE (MAXIMUM - 999.) 

“WORD 0 :MINUTE’S COUNT STORED HERE 

“WORD 0 3 SECONDS COUNT STORED HERE 

“WORD 0 TIMER ROUTINE COUNTER (FOR ONE SECOND) 

“WORD =1 :ZERO INDICATOR FOR THE DATA COMPARE ROUTINE 

“BYTE 0 [DATA COMPARE ERROR FLAG 
SIF > 0, PROCESSING “DCKER OR CAN'T MATCH PATTERN 
:1F < 0, MISCOMPARSION F 

.BYTE 0 *MISCOMPARSION OR CAN'T PATCH PATTERN FLAG 
SIF <0, ERROR IN BUFFER 

WORD 0 :SAVE Ri HERE 

“WORD 0 [SAVE RS HERE 

“WORD 0 : R OF ERRORS 

“WORD 0 [DISPLAY LIMIT 

“WORD 0 [WORD COUNT 

“WORD 0 [CYLINDER ADDRESS 

“BYTE 0 :SECTOR ADDRESS 

“BYTE 0 STRACK ADDRESS 

“WORD 0 [ERROR BURST BIT OFFSET 

“WORD 0 TERROR BURST WORD OFFSET (RELATIVE T TO SECTOR) 

“WORD 0 TCORRECTION MASK FOR FIRST 

“WORD 0 > CORRECTION MASK FOR SECOND ERAGR tc WORD 

“WORD 0 [LOCATION OF FIRST ERROR WORD 

“WORD 0 [GOOD DATA, FIRST WORD 

.WORD 0 [BAD DATA, FIRST WORD 

“WORD 0 [LOCATION OF SECOND ERROR WORD 

“WORD 0 :GOOD DATA, SECOND WORD 

“WORD 0 [BAD DATA, SECOND WORD 





SEQ 0050 





CZRMUAO RMO5S/3/2 PERF EXER 


USER DEFINED TAGS 


001506 


001510 


001512 


001514 


001516 





001465 


000003 


000001 


000001 


000001 


mM 4 
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21. 
1. 


Ofwo 


CYLINDER ADDRESS LIMIT 

SECTOR ADDRESS LIMIT 

: TRACK ADDRESS LIMIT, RMO2/3 = 4. AND RMOS = 18. 
>THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
HE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 

:*XXDP" DEVICE CODE FOR THE RMO05/3/2. = 


COMMON PARAMETERS 


CYLIMT: . 
SECLMT: .WORD 
TRKLMT: .WORD 
XXDP: . WORD 
- SBFTL 
ENDCON: .WORD 

- WORD 
ENDSEK: .WORD 

- WORD 
PASCNT: .WORD 
MAXDL: .WORD 
MAXER: .WORD 
INTRVL: .WORD 
CMPLMT: .WORD 
FORMAT: .WORD 
WCSEL: .WORD 
RATIO: .WORD 
AUTOCK: .WORD 
NOTPRT: .WORD 
ENDET: .WORD 
PATTEN: .WORD 
HEADER: .WORD 
- SBTTL 


002740 
005455 
143300 


i1 .875 X 10*8 WORDS (10) (3 x 10*9 BITS) 
33 3x 10*6 SEEKS (LSW) 


NUMBER OF PASSES TO END OF TEST 

;MAXIMUM DATA TRANFER af IN WORDS 

: (FILLED BY PROGRAM AT STARTUP OR BY OPERATOR 

NG PARAMETER ENTRY: DIALOG. ) 

[MAXIMUM ERRORS = (10) 

sFIRST WORD IS THE PERFORMANCE TYPEOUT INTERVAL 

: CIN Hy ig SECOND WORD IS THE INTERVAL COUNTER. 
R OF COMPARE ERRORS TYPED OUT 

TIF NOT EQ 0, ALLOW WRITE ay & DATA ORDERS 

:IF EQ 0, DO NOT ALLOW WRITE HEADER & DATA ORDERS 

+ IF EQ TO 0, GENERATE A RANDOM WORD COUNT 

FOR THE OPERATION 

IF NOT EQ TO 0, USE THE VALUE IN "MAXDL' FOR 

WORD COUNT 


THE 
:READ/WRITE RATIO CRANGE 0 - 7] 


:0 - 0/8 (READ/WRITE) 
31 - 7/1 
2 - 6/2 
73 - 5/3 
34 = 4/4 
35 = 3/5 
36 - 2/6 
- / 


7 7 

;1F NOT EQ 0, DO AN APPROPRITE WRITE 
;CHECK AFTER EACH WRITE ORDER. 

:1F EQ 0, SELECT WRITE CHECK ORDERS 


Y. 
:IF EQ 1, DO NOT PRINT DATA ERROR MESSAGES 
ASSOCIATED | WITH OPERATOR SPECIFIED 


:1F NOT 4E8,9° 0, PRINT ERROR MESSAGES RELATING TO 
[IF NOT EQ 0, END OF PASS DETERMINED 
iBY Y THE ‘WORDS R 

Q 0, END OF PASS DETERMINED 
‘ay FE SEEK C 
:1F EQ 0, RANDOMLY "eerect DATA PATTERN 
:1F NOT oy SELECT 1 ONE SET OF PATTERN 
:POINT BY THE 'PATTEN’. 

0, RANDOPLY SELECT DATA BLOCK 

‘ADDRESS. IF EQU 0, SEQUENTIALLY 
SSELECT DATA BLOCK ADDRESS 


VALUES FOR FIRST OPERATION 


SEQ 0051 


CG 





CZRMUAO RMOS/3/2 PERF EXER 
VALUES FOR FIRST OPERATION 


001520 
001522 


001524 





000010 
000004 


000400 


BEGPAT: .WORD 
BEGCOD: .WORD 


BEGSIZ: .WORD 

-SBTTL TABLES, 

ina eee - DRIVES 
RDERQ: .WORD 


ASNLSi: .WORD 
;ADDRESSES OF D 
DUNIT: 


zADDRESSES OF NE 
NEWUNT : 


N 4 
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10 ;STARTING PATTERN CODE CRANGE 1 = 17 (OCTAL)I 
* TARTING COMMAND CODE et 0- 5] 

WRITE CHECK DATA (‘WCKD') 

WRITE CHECK HEADER ry DATA (*WCHKHD * ) 
WRITE DATA (‘WRIDAT 

WRITE HEADER & DATA o WRTHD * ) 

READ DATA ("RDDAT‘) 

READ HEADER & DATA (‘RDH # ) 

400 TARTING RECORD SIZE CRANGE 4 - MAXMEM] 


CONSTANTS, AND VARIABLE LOCATIONS 
PERFORMING COMMANDS 


ee Se Se Se Se Be Ge te 


ANEW AOUN 


:A BIT SET IS AN ASSIGNED DRIVE 
VES TO BE DEASSIGNED 


= occccosc0e o COCCOoOCOoOCO 


LY ASSIGNED DRIVES 


ITING FOR BUFFERS/PARAMETERS 


o- 
0 
0 
0 
0 
0 
0 
0 
0 
WA 
0 
0 
0 
0 
0 
0 
0 
0 


SEQ 0052 
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001636 


SSERes 


Ss Ss ss 


ssss ssssgsses 
SsFE 


338 
4s 
See 
oRN 


001702 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 


«WORD 


WAI 


"SWORD 


;LIST OF DRIVES 
PARQ: s D 


;BUFFER ALLOCATI 
BUFTBL: .WORD 


0 


8 lolelelelelelelelo) 3 joleleleleleleleol a) 


Ooooo0co 


pe ee enw lal al al al el ealelelelelolelelelelelelelolelelol=iala) 


ss es © Ss 8s & 8& & SF SF & & F&F F&F & F&F & FS &e Fe & & F&F & 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


aqt OF DRIVES WAITING FOR BUFFERS 


ITING FOR NEXT PARAMETERS 


TABLE ENTRY COUNT 


SEQ 0053 


a 


CZRMUAO RMOS/3/2 PERF EXER MACRO 
TABLES, CONSTANTS, AND VARIABLE LOCATI 


002102 000000 000000 
005198 geegie 

110 046576 
002112 0505 
002114 052752 
002116 055140 
002120 057 
002122 061514 
002124 063702 
002126 151 
002127 153 
002130 161 
002131 163 
002132 171 
002133 173 
002134 002 
002135 004 
002136 006 
002137 010 
002140 012 
002141 014 
002142 016 
002143 020 
002144 


88888833 
— — at os od od 
Wun & Py 
MmM—ONnNOuU 
woo oo°o°o 
GISFESZSS 


602153 
002154 
002156 125 116 114 
0021 123 105 105 
002176 122 105 103 
002. 104 122 126 
002216 122 105 114 
0022 117 106 106 
0022 122 124 103 
002246 122 105 101 
002256 120 101 103 
002. 123 105 101 
002276 127 103 113 
2 127 103 113 
002316 127 12e 124 
002326 127 122 124 
0023 122 104 104 
002346 122 104 110 
002356 116 117 116 


BLKADR: 


COMTBL: 


OPTBL: 


- EVEN 


A 
2 


> 


- WORD 


PEELE 


>>> 
nnuw 

te] 
fas he 


. . 
> > 
aa 
OOO OOOO 
a te ae at ta tat tg a et fd Pa tf 


>>>) 
nnn 
OO 
NN NNN III 
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o 


SSSSssss 2 
as ee ee ne ne Be ne 
NOUSWN-—O 


9 Ammo 


35555 
SxSFtsS 
*s$ 

a) 


VIWNIN SS MS MOSM 
SOMO SNO 


52 


THE PARAMETER BLOCK 


Annunwnunnw 
BBVBVBVa 

: 

: 

z 

@ 

r= 

x 
sesageas 
ZESZEBzz 
NOUS WIN-O 


AA AAA AA 


sADDRESS OF THE PARAMETER BLOCK 


sWRITE CHECK DATA 
sWRITE CHECK HEADER AND DATA 
WRITE DATA 


[WRITE HEADER AND DATA 
[READ DATA 
[READ HEADER AND DATA 


; UNLOAD 

; SEEK 

;RECAL 

:DRIVE CLEAR 

; RELEASE 

2 OF FSET 

sRETURN TO CENTERLINE 

:READIN PRESET 

:PACK ACKNOWLEDGE 
ARCH 


7SE 

sWRITE CHECK DATA 
sWRITE CHECK HEADER AND DATA 
sWRITE DATA 


WRITE HEADER AND DATA 
;READ DAT 


:READ DATA 
READ HEADER AND DATA 
; TERMINATOR 


—™ |S RA A AR AR AR RA AR RRR 


SEQ 0054 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 


002366 101 106 124 OFMSGO: .ASCIZ 
002421 101 124 040 OFMSGI: .ASCIZ 
002444 101 124 040 OFMSG2: .ASCIZ 


— 


-EVEN 
002470 000 OFFCOD: .BYTE 
002471 001 -BYTE 
002472 000 -BYTE 
- EVEN 
002474 002366 OFMTBL: .WORD 
002476 002421 WORD 
002500 002444 ~ WORD 


/AFTER RETRY a rare; OF FSET/ 
/AT NEGATIVE OFFSET/ 
/AT POSITIVE OFFSET/ 


2 OF FSET a worl 
ER eer 


o-oo 
e. 
. 


OFMSGO ;1ST OFFSET MESSAGE 
OFMSG1 :2ND OFFSET MESSAGE 
OFMSG2 :3RD OFFSET =SSAGE 


-SBTTL DATA PATTERNS 
STANDARD DATA PATTERN POINTER TABLE 
STNDAT : DATAO = ;STAND A 


04 4 s 

506 002646 . WORD 
002510 002706 . WORD 
002512 002746 - WORD 
002514 00 ‘ - WORD 
002516 003046 . WORD 
2520 003106 - WORD 
002522 003146 . WORD 
002524 003206 . WORD 
2526 003246 - WORD 
002530 003306 . WORD 
002532 003346 - WORD 
002534 003406 . WORD 
002536 003446 . WORD 
2540 003506 . wORD 
002542 002546 . WORD 
002544 003450 WORD 

002546 ZEROS: 


002546 000000 . DATAO: 





7ST 
DATA15 ;STANDARD DATA PATTERN 


ZEROS ALL L O'S PATTERN 
ONES zALL 1°S PATTERN 


zALL 0°S DATA PATTERN 


elelelelelelelelelelelelelelalo) 


000001 ;STANDARD PATTERN 1 


SEQ 0055 


———s 


| pel“ RE... ag, a B 
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DATA PATTERNS wt sicri ites hoes 


| 
| 





002610 


002612 
002614 
002616 
00 


000003 
? 


177777 
646 177776 


DATA2: 


DATA3: 


DATAG: 


177777 


177776 =; STANDARD PATTERN 2 
177774 


000000 ;STANDARD PATTERN 3 
000 


133331 ;STANDARD PATTERN 4 


SEQ 0056 


——e 


(a 





——————— EE 





re 
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DATA PATTERNS SEQ 0057 
002764 133331 «WORD 133331 
002766 133331 «WORD 133331 
002770 133331 -WORD 133331 
002772 133331 -WORD 133331 
002774 133331 WORD 133331 
002776 133331 «WORD 133331 
3000 133331 -WORD 133331 
003002 133331 -WORD 133331 
3004 133331 -WORD 133331 
052525 DATAS: .WORD 052525 ;STANDARD PATTERN 5 
003010 052525 «WORD 052525 
003012 052525 -WORD 052525 
003014 125252 -WORD 125252 
003016 125252 -WORD 125252 
3020 125252 -WORD 125252 
003022 052525 -WORD 052525 
003024 052525 -WORD 052525 
003026 125252 -WORD 125252 
003030 125252 -WORD 125252 
003032 052525 -WORD 052525 
003034 125252 -WORD 125252 
3036 052525 «WORD 052525 
003040 125252 -WORD 125252 
3042 052525 -WORD 052525 
003044 125252 -WORD 125252 
3046 155554 DATA6: .WORD 155554 ;STANDARD PATTERN 6 
003050 155554 -WORD 155554 
003052 155554 -WORD 155554 
003054 155554 WORD 155554 
3056 155554 -WORD 155554 
3060 155554 -WORD 155554 
003062 155554 -WORD 155554 
003064 155554 -WORD 155554 
3066 155554 -WORD 155554 
003070 155554 -WORD 155554 
003072 155554 WORD 155554 
003074 155554 -WORD 155554 
093076 155554 «WORD 155554 
31 155554 -WORD 155554 
003102 155554 -WORD 155554 
31 155554 -WORD 155554 
003106 026455 DATA7: .WORD 026455 ;STANDARD PATTERN 7 
003110 026455 «WORD 026455 
003112 026455 -WORD 026455 
003114 151322 «WORD 151322 
003116 151322 -WORD 151322 
003120 151322 -WORD 151322 
003122 026455 WORD 026455 
003124 026455 «WORD 026455 
003126 151322 -WORD 151322 
3130 151322 -WORD 151322 
003132 026455 «WORD 026455 
3134 151322 -WORD 151322 
003136 026455 «WORD 026455 


aaa re en ee es my 


a a ne a 


| nk? a 
/CZRMUAO RMOS/3/2 PERF EXER MACRO VO03.01 11=APR~80 14:52:06 PAGE 6-8 
/DATA PATTERNS 


SEQ 0058 
003140 151322 WORD 151322 
003142 026455 “WORD 026455 
003144 151322 “WORD 151322 
003146 066666 DATA8: .WORD 066666 ;STANDARD PATTERN 8 
| 003150 066666 “WORD 066666 
| 003152 066666 “WORD 066666 
| | 003154 066666 WORD 066666 
003156 066666 WORD 066666 
003160 066666 WORD 066666 
003162 066666 WORD 066666 . 
003164 066666 WORD 066666 
003166 066666 WORD 066666 
3170 066666 WORD 066666 
003172 066666 WORD 066666 
003174 066666 WORD 066666 
003176 066666 WORD 066666 
003200 066666 WORD 066666 
003202 066665 WORD 066666 
003204 066666 WORD 066666 
003. 000001 DATA9: .WORD 000001 ;STANDARD PATTERN 9 
003210 000002 :WORD 000002 
003212 000004 “WORD 000004 
003214 000010 “WORD 000010 
003216 000020 “WORD 000020 
003220 000040 “WORD 000040 
003222 000100 “WORD 0001 
003224 000200 “WORD 000200 
003226 000400 [WORD 0004 
3230 001000 “WORD 001000 
003232 002000 “WORD 002000 
3234 004000 “WORD 004000 
3236 010000 “WORD 010000 
003240 020000 “WORD 020000 
003242 040000 “WORD 040000 
3244 100000 “wORD 100000 
003246 177776 DATA10: .WORD 177776 ;STANDARD PATTERN 10 
003250 177775 “WORD 177775 
003252 177773 "WORD 177773 
177767 “WORD 177767 
003256 177757 “WORD 177757 
003260 177737 “wORD 177737 
003262 177677 "WORD 177677 
003264 177577 "WORD 177577 
177377 “WORD 177377 
003270 176777 “WORD 176777 
003272 175777 “WORD 175777 
003274 173777 “WORD 173777 
003276 167777 “WORD 167777 
3 157777 “WORD 157777 
003302 137777 “WORD 137777 
077777 “WORD 077777 
003306 172666 DATA11: .WORD 172666 ;STANDARD PATTERN 11 
003310 155555 “WORD 155555 





—— 


| CZRMUAO RMOS/3/2 PERF EXER 


C 
|DATA PATTERNS 


' 


N 

mvirg 
VIOAuiovi 
MAUI 
MOUIOS un 


MAuinuvr 
VIQAauinur 
MOAumnur 


“N WNuNuU 
wi 
wi 
wi 


76777 
177377 


177776 
153333 
066667 
153333 
066667 
153333 
066667 
br | 
153333 
066667 
eas 
153333 
066667 
153333 
066667 


177777 


| 

| 

| 
003460 
003464 





ONES: 


DATA12: . 


DATA13: . 


DATA14: . 


- ; 
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7777 =; STANDARD PATTERN 12 


77377 


177776 
153333 ;STANDARD PATTERN 13 
066667 
153333 
066667 
153333 
066667 
153333 
066667 
Da 
153333 
066667 
153333 
066667 
153333 
066667 


000000 ;STANDARD PATTERN 14 
Add ALL 1°S DATA PATTERN 


SEQ 0059 


CZRMUAO_RMOS/3/2 PERF EXER 
DATA PATTERNS 





177777 


177777 
177777 
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DATA15S: . 


177777 


177777 
177777 
000000 


000000 


STANDARD PATTERN 15 


SEQ 0060 


J 5 
CZRMUAO RMOS/3/2 PERF EXER MACRO V03.01 11-APR-80 14:52:06 PAGE 7 
ERROR POINTER TABLE SEQ 0061 
0 -SBTTL ERROR POINTER TABLE 


ap TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
 *LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


7 *NOTE1: IF S$ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 
: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
:* EM 3z:POINTS TO THE ERROR MESSAGE 
i* DH ::POINTS TO THE DATA HEADER 
:* DT POINTS TO THE DAT 
i* DF >:POINTS TO THE DATA FORMAT 
; 003546 SERRTB 
; ERROR 1 
4 003546 066169 EM1 ;RH70 INTERRUPT OCCURRED (RMAS = 0) 
5 003550 070613 DH1 
6 003552 071244 DT1 
i 003554 
D zERROR 2 
11 003556 066230 EM2 UNEXPECTED ATTENTION OCCURRED 
12 003560 07 DH2 
13 003562 071250 DT2 
i: 003564 
1g ERROR 3 
18 003566 266 EM3 ;MASSBUS PARITY ERROR (MCPE=1) 
19 003570 070674 DH3 
20 003572 071266 DT3 
21 003574 0 
22 
7 ZEPROR 4 
25 003576 066324 EM4 zMASSBUS PARITY ERROR (PAR=1) 
00 070722 DHS 
27 003602 071276 DT4 
00 
ZERROR 5 
EM5 ADDRESS PLUG BIT CHANGED 
070620 DH2 
071250 DT2 
000000 0 
ZERROR 6 
15 EM6 ;RH/RM DIDN'T RESPOND TO ADDRESSING 
aris i 





Se ee 


K 5 
CZRMUAQ RMOS/3/2 PERF EXER MACRO VO3.01 11=APR~80 14:52:06 PAGE 7-1 
ERROR POINTER TABLE SEQ 0062 


43 









¥ Er 
CZRMUAO RMOS/3/2 PERF EXER MACRO VO3.01 11-APR=80 14:52:06 PAGE 8 
PROGRAM START SEQ 0063 , 


} .SBTTL PROGRAM START 
3 003626 012737 177777 001360 START: MOV #-1, CHGADR ;SET RH/RM ADDRESS CHANGE FLAG 
4 003634 000407 BR START2 ;START THE PROGRAM 
6 003636 012737 000400 001360 START1: MOV #400, CHGADR ;CLEAR THE RH/RM ADDRESS CHANGE FLAG 
7 FEAR EAEEEEEAEEERAEEREKREERERRERREEEEREEEEEEKEEREEEE 
003644 000240 TST1: NOP 
. 003646 012737 000001 001212 MOV #1, STESTN 7;SET TEST NUMBER IN APT MAIL BOX 
9 003654 005227 000000 START2: INC #0 ;TTY LOOP, WAIT FOR INCREMENT 
10 003660 001375 BNE 4 SOF WORD 
1 003662 000005 RESET ;CLEAR THE WORLD 
13 -SBTTL_ INITIALIZE THE COMMON TAGS 
77CLEAR THE COMMON TAGS (SCMTAG) AREA 
003664 012706 001114 MOV #SCMTAG,R6 ::FIRST LOCATION TO BE CLEARED 
003670 005026 CLR (R6)+ ZCLEAR MEMORY LOCATION 
003672 022706 001154 CMP #SWR,R6 3 SDONE? 
003676 001374 BNE .-6 LOOP BACK IF NO 
003700 012706 001100 MOV #STACK, SP 77SETUP THE STACK POINTER 
ss INITIALIZE A FEW VECTORS 
003704 012737 032262 000030 MOV #SERROR ,@WEMTVEC ; “EMT VECTOR FOR ERROR ROUTINE 
003712 012737 000340 000032 MOV #340, a#EMTVEC+2 :LEVE 
003720 012737 035526 000034 MOV WSTRAP ,QMTRAPVEC :; TRAP VECTOR FOR TRAP CALLS 
003726 012737 000340 000036 MOV #340, a#TRAPVEC+2;LEVEL 7 
003734 012737 033410 000024 MOV #SPURON. aNPWRVEC : POWER FAILURE VECTOR 
003742 012737 000340 000026 MOV 340 aMPURVECSD: ; L7 
003750 012737 176543 035112 MOV #176845. SHINUM : PRIME THE RANDOM NUMBER GENERATOR 
003756 012737 123456 035114 MOV #123456, $LONUM i BOTH HIGH AND LOW WORDS 
33SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
S]EQUAL TO A 'S1'', SETUP FOR A SOFTWARE Sw TCH REGISTER. 
003764 013746 000004 MOV @FERRVEC,-(SP) ;;SAVE ERROR VECTOR 
003770 012737 004024 000004 MOV #64$,QNERRVEC ::SET UP ERROR VECTOR 
003776 012737 177570 001154 MOV #DSWR, SWR ::SETUP FOR A HARDWARE SWICH REGISTER 
004004 012737 177570 001156 MOV MDDISP,DISPLAY ;:AND A HARDWARE DISPLAY REGISTER 
004012 022777 177777 175134 CMP #-1,aSUR Si TRY TO REFERENCE HARDWARE Su 
004020 001012 BNE 66$ :3BRANCH IF NO TIMEOUT TRAP OCCURRED 
THE HARDWARE SWR IS NOT = -1 
004022 000403 BR 65$ 7:BRANCH IF NO TIMEOUT 
004024 012716 004032 64$: MOV #65$, (SP) 7:SET UP FOR TRAP RETURN 
004030 000002 RTI 
004032 012737 000176 001154 65$: MOV HSWREG, SWR 73POINT TO SOFTWARE SWR 
004040 012737 000174 001156 MOV #DISPREG, DISPLAY 
004046 012637 000004 66$: MOV (SP)+,aWERRVEC ;;RESTORE ERROR VECTOR 
004052 005037 001214 CLR SPASS sCLEAR PASS COUNT 
004056 132737 000200 001227 BITB #APTSIZE,SENVM ZITEST USER SIZE UNDER APT 
004064 001403 BEQ 67$ YES,USE NON-APT SWITCH 
004066 012737 001230 001154 a MOV #SSWREG, SWR 3ZNO,USE APT SWITCH REGISTER 
14 .SBTTL _TYPE PROGRAM NAME 4 
7; TYPE THE NAME OF THE PROGRAM IF FIRST PASS | 
004074 005227 177777 INC #1 3 sFIRST TIME? 
004100 001051 BNE 68S :}BRANCH IF 
004102 104401 004150 YPE —_,69$ PE ASCIZ. STRING 


- SBTTL eT VALUE FOR SOF TWARE suitcH REGISTER 





RERRRERERE 
SERENRNESS 


R 
S 
o 


004224 


ee oy 
OONAW 


NLS 
ee 
S& 


o 004246 





GET VALUE FOR SOF TWARE 


000403 
112737 
000426 


CZRMUAO RMOS/3/2 PERF EXER 


000042. 
001226 
001154 


000001 


001452 
000016 
000040 
000007 
001452 
000042 


004276 


001452 


001203 


177777 
004356 
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SWITCH REGISTER 


000001 
000176 


001150 


000041 


001452 
001452 


70 
71 


; 69S: 


$: 
$: 


68$: 


PAPER TAPE (MANUAL), 


1$: 


-ASCIZ 


SEQ 0064 


42 32ARE WE RUNNING UNDER XXDP/ACT? 
70$ ; BRANCH IF YES 
SENV,41 32ARE WE RUNNING UNDER APT? 
;7BRANCH IF YES 
SWR ,ASWREG 7ZSOFTWARE SWITCH REG SELECTED? 
71$ i: CH IF NO 
18 37GET SOFT-SWR SETTINGS 
#1 ,$AUTOB 72SET AUTO-MODE INDICATOR 
68$ GET OVER THE ASCIZ 
<CRLF>@CZRMUAO - a ye PERFORMANCE EXERCISER@<CRLF> 
;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
ACT11, XXDP CHAIN OR DUMP 
P ;CLEAR "XXDP* LOAD DEVICE 55 |ORAGE 
#16,0441 : LOADED, FROM AN RMO5/3/2 ? 
a440,XXDP 7GET DEVICE INDICATOR - aa NUMBER 
oXXD :1S IT A VALID NUMBER 
XXDP 3NO, DEFAULT TO DRIVE 0 
afs2 ;CHAIN MODE OR ACT11 AUTO ACCEPT ? 
2s [BR IF NEITHER 
73$ ii TYPE ASCIZ STRING 


7 


;73$: 
$: 


2$: 


-;:75$: 
74$: 


;77$: 


v$: 


ad 


BR 
eASCIZ 
TYPE 
BR 
-ASCIZ 


72$ OVER THE ASCIZ 
<CRLF>/NOT TESTING BRIVE 


-(SP) CLEAR WORD ON STACK 

XXDP, (SP) “GET DRIVE ADDRESS 
[TYPE THE ADDRESS 

1 SONLY 1 CHARACTER 

0 3 SUPRESS LEADING ZEROS 

SCRLF :CR= 

$ GET” NUMBER OF DRIVES 

a1 :FIRST TIME THRU HERE ? 

oe TYPE ASCIZ STRING 


4$ 33GET 
<CRLF>/TO TEST DRIVE / 


~(SP) CLEAR WORD ON STACK 
XXDP,, (SP) 7GET DRIVE ADDRESS 
:TYPE DRIVE ADDRESS 


1- ZONLY 1 CHARACTER 
0 ZSUPRESS LEADING ZEROS 

77$ 33 TYPE ASCIZ STRING 

76$ SGET OVER THE ASCIZ 

/, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 


een a, 
/WITH A WORK pack’ CLEAR LOCATION 1 AND RESTART PROGRAM. /<CRLF> 


OVER THE ASCIZ 


CZRMUAO RMOS/3/2 PERF EXER 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


50 004600 004737 031604 
005737 000042 
00101 
123727 001226 000901 
001406 
004622 023727 001154 000176 
001005 


000403 

112737 000001 

105737 001226 
1423 


60 004702 013737 001272 035762 
61 006710 013737 001274 64 
6 004716 20 

64 0047 105737 001150 

65 00472 015 

66 004726 37 076500 


0047 
67 004732 013737 001272 035762 
7 1274 035764 
69 004746 ctst4 177777 
71 004754 004737 076160 


78 004 
79 005010 013737 001314 001374 
0050 001366 


001362 
170000 001470 


90 005054 005227 177777 
060 001005 


004737 076346 
3737 076476 001356 


01 
0 01 1 
95 005102 012737 077752 001706 
0051 013737 001356 





- SBTTL 


79$: 
80S: 


4$: TSTB 


5$: CLR 
MOV 
6$: CLR 


5 
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PC,$TK TURN ON THE KEYBOARD INTERRUPT 


JSR 
GET VALUE For SOF TWARE swITCH REGISTER 
TST arse 


23ARE WE ary UNDER XXDP/ACT? 


79$ ; BRANCH I 

SENV #1 ae ARE WE RUNNING UNDER APT? 
79$ :BRANCH IF YES 

ee ::SOFTWARE SWITCH REG SELECTED? 
808 ::GET SOFT-SWR SETTINGS 
#1,$AUTOB 32SET AUTO-MODE INDICATOR 


SENV yRUN UNDER APT MODE 
$ zNO,DO NOT BOTHER 
$VECT1 


sNEW VECTOR ? 
+ NOT LOAD IF = 0 
SVECT1,$RMVEC ;NEW VECTOR 
$BASE NEW BASE ADDRESS ? 


.+10 NO 
S$BASE , SRMADR ZNEW BASE ADDRESS 
SRMADR, RMADR ;LOAD ADDRESS INTO DRIVER 
tame -RMVEC ;LOAD VECTOR INTO DRIVER 
AUTO MODE ? 
7YES 


>CHECK RH/RM BUS ADDRESS 
R,RMADR ;RH/RM ADDRESS 


SRMVEC ,RMVEC 7RH/RM VECTOR aie 4 
, FIRST Th TIME THRU HERE ? 
PC ,,OPRDAT :GET THE DATE AND OPERATOR ID 
STATIN [CLEAR PERFORMANCE SUMMARY TYPEOUT FLAG 
74 maa :START OF AREA TO CLEAR 
* 
ABLKADR ,R5 ;LOOK FOR END OF CLEAR AREA 
BR IF NOT FINISHED 
STACK, SP sSETUP THE STACK POI 
P. :CLEAR_THE ae tes fhe WORD 
HZ,SIXTEE 71/60 TH OR 1/50 TH SECOND COUNTER VALUE 
HOUR CLEAR THE HOUR’ 5" ¢ 
MINUTE CLEAR THE MINUTE'S COUNTER 


SECOND ; 
INTRVL+2 :CLEAR INTERVAL COUNTER 
PACK é THE 'R* OR ‘W* , COMMAND FLAG 


sROUTINE TO DETERMINE BUFFER AREA SIZE 


SIZMEM: INC 
BNE 


1$: MOV 


CFLAG 7CLEAR THE "CONTROL C' FLAG 
#170000,MAXER MAKE SURE ERROR LIMITS ARE NOT TOO HIGH 
#~1 :FIRST TIME THRU HERE ? 

1$ : F NO 

PC,$SIZE 2SEE HOW MUCH MEMORY ON SYSTEM 

SLSTAD, LSTAD ;SAVE THE LAST ADDRESS 

#1 ,BUF TBL OF BUFFERS 


[LOAD NUMBER 
#ENDPGM,BUFTBL+2° ;STARTING ADDRESS OF BUFFER 
LSTAD,BUFTBL+4 ;LAST ADDR TO BUFFER ALLOCATION TABLE 


SEQ 0065 





CZRMUAO RMOS/3/2 PERF EXER 
GET VALUE FOR SOFTWARE 


161405 


#87 
is Ae 
3 
7 


97 0051146 
98 0051 
99 0051 
100 0051 
101 005142 
4 005144 
103 005150 
104 postes 
105 9051 
106 005164 
107 005172 
108 005176 
109 005200 
110 005206 
111 005214 
112 005216 
113 005224 
114 

115 

116 

117 005232 
118 005236 
119 005240 
120 005246 
121 905250 
is¢ 005254 
123 005256 
124 005262 
125 005264 
126 005270 
127 005276 
128 005 
129 005304 
130 005310 
131 005312 
132 005316 
133 

134 005322 
135 005326 
136 005332 
137 005340 
138 005342 
139 

140 

141 

a 

143 005350 
144 005354 
145 005 
146 005 
147 005372 
148 005374 
149 005402 
150 005404 
151 005406 
152 0054 
153 00 





001356 


077752 


001710 
000144 
002570 
001466 


020000 
001466 
001710 
001710 


001150 
007070 
001226 
075222 
001174 
000131 
074244 
001203 
001174 
001203 
075120 
027702 
001466 


000004 


023326 
0 


177777 
177777 


000004 


073535 
001203 
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WARE SWITCH REGISTER 


160000 
001710 
001710 
001710 
001710 


001466 
001710 


001466 
075122 


001266 


001174 


001466 


035722 


173552 





2s: SUB 


3$: TST 
4$: CMP 


5$: MOV 


LKPAR: TSTB 


@R 
1$: TYPE 


ENTPR: — 


bstAD. -#160000 


#160000 ,BUF TBL 


#ENDPGM ; BUF Tet wd 
BUF TBL +4 

#100. ,BUF TBL +4 
42 

3$ 

#1400. ,BUF TBL+4 
MAXDL 

4$ 

#8192. ,MAXOL 


te -BUF TBL +4 
BUF TBL +4 ,MAXDL 


a 28K ? 
XXDP_MAX a one 28k 


; OUNT 
+ SAVE ROOM FOR THE ‘ABS’ LOADER 
LOAD FROM XXDP OR OTHER MONITOR ? 


BR IF LOADED BY PAPER TAPE 

+ SUBTRACT *XXDP" _—— SIZE 
;VALUE IN ‘MAXDL' 
:BR IF VALUE IS 

SUME FULL TRACK MAXIMUM 
:18 Th THAT ~~ LARGE ? 


IF NO 
;USE MAX AVAIL MEMORY AS MAX we SIZE 


BUF TBL+4,PARLST+2 ;VALUE FOR THE PARAMETER T 
ySEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS 


$AUTOB 
SETVEC 
#7070,$CDw1 
SETVEC 

SENV 

SFTVEC 
-ASKPAR 


(SP) +, $TMPO 
#*Y,STMPO 


N 

. SCRLF 

SETVEC . 
STMPO 


*SCRLF 


#PARLST, = 
PC PARENT 
MAXDL #4 
SETVEC 

#4 ,MAXDL 


‘en IF Y CHAIN MODE OR ‘ACT11° OPERATION ? 


YES 
;FROM THE — FAIL RT. ? 
BRANCH IF 
zAPT STAND ALONE MODE ? 


;ASK FOR PARMETERS 
;READ THE ENTRY 
— RESPONSE 
WAS IT A YES RESPONSE ? 
2BR IF YES 


PE ‘N’ 
CR=LF 
s TYPE ‘y’ 
sCR-LF 
;PARAMETER TABLE ADDRESS 


GET THE PARAMETER ENTRY 
21S THE *MAXDL* VALUE OK ? 


:BR_IF IT I 
:SET "MAXDL' TO THE MINIMUM VALUE 


sDISPLAY DRIVE STATUS AND SET UP THE OTHER SYSTEM DEVICES THAT 
; THE PROGRAM WILL USE 


SETVEC: JSR 


PC, CKCLK 
P 


R4,-(SP) 





START THE CLOCK 
3 IT IA Lee THE RM DRIVER 
T THE SAVE REGISTERS FLAG 
“FIRST TIME THRU ? 
BR IF YES 
‘On tenor DRIVE STATUS TABLE ? 


DRIVE TABLE POINTER 
: TYPE STATUS HEADING 


=CR =L 
1 SAVE R4 FOR TYPEQUT 


SEQ 0066 


CZRMUAO RMOS/3/2 PERF E 
GET VALUE FOR SOF TWARE 
0054 104403 
0054 § 002 
0054 
154 005424 104401 
155 0054 105764 
156 005434 100416 
4 005436 001020 
159 005440 105764 
160 005444 001404 
161 005446 100006 
log 005450 104401 
ser 005454 000451 
165 005456 104401 
166 005462 0004 
168 005464 104401 
4 005470 000416 
171 005472 10440° 
\e 005476 000413 
174 005500 005737 
175 005504 001406 
176 005506 123704 
177 005512 001003 
178 005514 104401 
179 005520 000427 
180 005522 104401 
181 005526 104401 
182 005532 012737 
183 005540 122764 
184 005546 001412 
185 005550 012737 
186 005556 122764 
187 005564 001403 
Hy 005566 012737 
190 005574 104401 
13) 005576 
193 005600 005204 
194 005602 020427 
195 005606 001301 
196 005610 104401 
197 005614 
198 
199 
200 
201 005614 _ 105737 
202 005620 001407 
203 005622 005737 
204 005626 00 
205 005630 004737 
206 005634 104401 


XER 
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SWITCH REGISTER 


073266 
035634 


035644 
073430 
073451 
073337 
073505 


001452 
001452 
073515 
073350 


073553 
000005 


073565 


000010 
001203 


001150 
001360 


025260 
001203 





005576 
035644 


005576 
035644 


005576 


3$: 


5$: 


7$: 


12$: 


TSTB 
BEQ 
BPL 
TYPE 
BR 
TYPE 
BR 
TYPE 
BR 


TYPE 
BR 


TYPE 








-BLNKSS 
DRVSTA(R4) 
5$ 


DRVTYP(R4) 


.10$ 
#4 ,DRVTYP(R4) 
9$ 


#SRMO2 , 108 
#5 ,DRVTYP(R4) 


#SRMOS , 108 


-SCRLF 


s TYPE DRIVE NUMBER 
3:G0 TYPE=-OCTAL ASCII 
si TYPE 2 DIGIT(S) 

3; SUPPRESS LEADING ZEROS 
[TYPE 4 BLANK 

;CHECK DRIVE'S STATUS 
;BR IF UNSAFE 

;BR IF ONLINE 

7SEE IF OFFLINE OR NONEXISTENT 
;BR IF NONEXISTENT 

;BR IF OFFLINE 

;DRIVE NOT AN RMOS/3/2 

; CHECK NEXT DRIVE 


DRIVE NOT PRESENT 
CHECK NEXT DRIVE 


:DRIVE OFFLINE 
sPRINT DRIVE TYPE 


DRIVE UNSAFE 
:PRINT DRIVE TYPE 


wg FROM THIS DEVICE ? 
;LOADED FROM THIS DRIVE ? 
;BR IF NO 

:DRIVE IS LOAD DEVICE 
:DRIVE ONLINE 

3; TYPE 2 BLANKS 

ZADDRESS OF RMO3 MESSAGE 
21S DEVICE AN RMO3 ? 

;BR IF YES 

ZsADDRESS OF RMO2 MESSAGE 
71S DEVICE AN RMO2 ? 

;BR IF YES 

sADDRESS OF RMOS MESSAGE 
;TYPE THE DRIVE TYPE MESSAGE 


_ gMESSAGE ADDRESS HERE 


7 INCREMENT DRIVE NUMBER/TABLE POINTER 
:FINISHED ? 


> CR-LF 


SETUP IF *XXDP* OR ‘ACT11° OPERATION 


MONTR : 


JSR 
TYPE 


PC ,ASGN2 
- SCRLF 


z"XXDP* CHAIN MODE OR ‘ACT11" AUTO ACCEPT 
:BR_ IF NEITHER 


7200 START ? 
YES 

ASSIGN DRIVES 
7 CR-LF 


SEQ 0067 


\ 


6 
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GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0068 
207 005640 004737 031604 1$: JSR PC,STKINT ; INITIALIZE THE KEYBOARD INTERRUPT HANDLER 
209 :F ORCE TO 9 Test PACK FOR 200 STAR 
210 005644 012737 902740 001454 FowT? #2740, ENDCON !INITIAL XTRANS COUNT 
211 005652 012737 005455 001456 mov #5455. ENDCON+2 
a4 005660 105737 001226 TSTB —s- SENV LAPT SCRIPT MODE, THEN MAKE IT RUN 2 MIN. 
213 005664 901412 BEQ 13 ‘NO 
214 005666 01273 001504 MOV 10 :SPEED UP TEST 
215 005674 012737 077777 001454 MOV aoTTT ENDCON :SET LSW OF ENDING VALUE 
216 005702 012737 27 001456 MOV 27 -ENDCONS2 ZSET MSW OF ENDING VALUE 
217 005710 03 BR :START TO WRITE AND TEST 
218 005712 005737 001360 1$: TST CHCADR SSTART AT 200 ? 
319 005716 003464 BLE FOWT3 :NO 
221 005720 005001 FOWT2: CLR R1 :DRIVE # 
222 005722 005002 CLR R2 TAVAIL TABLE INDEX 
223 005724 005003 CLR R3 ;DRIVEM * 2 
324 005726 005737 001452 1$: TST XXDP : LOADED FROM THIS DEVICE ? 
25 005732 001403 BEQ 2$ [BR 
734 123701 001452 CMPB —s- XXDP,,R1 {POAED FROM THIS DRIVE ? 
227 005740 001442 BEQ 4$ ‘BR IF Y 
228 005742 105761 035634 2s: TSTB  DRVSTA(R1) [DRIVE ON LINE ? 
229 005746 003437 BLE : 
230 005750 016300 002106 MOV BLKADR(R3).RO LOAD DPB ADDRESS 
231 005754 004737 026174 JSR PC, CLRDPB [CLEAR DPB BLOCK 
232 005760 004537 026700 JSR R5.GETADR SRETRIEVE BAD SPOT FILE 
233 005764 000430 BR 4$ SUNSUCCESSFUL ! 
234 005766 010062 001574 MOV RO NEWUNT (R R2) LOAD DPB ADDRESS TO ABAIL QUEUE 
240 005772 112760 177776 000026 MOVB #=2,$P CKERO? ‘WRITE PATTERN THEN TEST 
241 006000 013760 001444 000106 MOV cycint. AAAXCYL (ROS ;UP CYLINDER LIMIT 
737 026546 JSR PC, GETLMT T LIMITS 
243 006012 013760 001450 000112 MOV TRKLMT ,MAXTRK(ROS :UPPER TRACK LIM] 
244 006020 013760 001446 000116 MOV SECLMT.MAXSEC(RO) :UPPER SECTOR LIMIT 
245 006026 005060 000110 CLR MINCYL (RO) :CLEAR LOWER LIMIT 
246 006032 005060 000114 CLR MINTRK (RO) :CLEAR LOWER LIMIT 
247 006036 005060 000120 CLR MINSEC (RO) CLEAR LOWER LIMIT 
248 006042 004737 020374 JSR PC,WRTPK iSET UP PARAMETERS 
50 006046 022322 4$: CMP (R3)+, (R2)+ y INCREMENT INDEX 
251 006050 005201 INC R1 [NEXT DRIVE 
252 006052 020127 000007 CMP R1,47 TALL DRIVE ASSIGN ? 
253 006056 003723 BLE 1$ : 
005037 001320 CLR PACK STEST PACK FLAG 
395 006064 000137 006260 JMP MAIN1 : JUMP TO WAIT PARAMETER AND BUFFER LOOP 
257 006070 104401 074610 FOWT3: TYPE §,INTDON TYPE "INITIALIZE COMPLETE" 


$28 006074 000137 006260 IMP... MAIN1 ZSTART THE PR 





: 
3 


0 


: 


1 
g 006100 
4 006104 
5 006106 
6 006112 
7 006114 
8 006120 
006124 
11 0061 
12 006135 
13 006136 
14 006140 
15 006142 
16 006146 
17 006150 
18 006152 
19 006156 
3 006160 
22 006164 
23 006170 
24 006172 
25 006174 
$e 006176 
28 006204 
29 
30 006212 
31 006214 
32 006216 
33 006220 
34 006222 
35 006226 
36 0062 
37 006232 
006236 
39 006242 
006246 
41 006250 
42 006252 
43 006256 
4S 
45 
46 
47 006260 
006264 
49 006266 
006270 
51 006272 
52 006276 
53 006300 
006304 





01 eiN2 


00 
000137 
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001362 
001526 


006676 
024624 


000010 
001552 
000002 


001550 
030526 
001616 


020356 


000010 


001574 
000002 
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-SBTTL MAIN PROGRAM 


MAIN TST CFLAG 
BEQ $ 
1$: TST ORDERQ 
BEQ 2s 
JMP IDLE 
2s: JSR PC,KSR 
3$: NOP 
MAINDA: MOV #8. ,R3 
MOV #DUNIT,RS 
1$: TST (R5) 
BNE 
23: ADD #2,R5 
DEC R3 
BNE 1$ 
TSTB ASNLST 
BNE MAIN1 
JMP $GET42 
3$: MOV #AVAIL,R1 
4$: TST (R1) 
BEQ 5$ 
CMP (R1),(R5) 
BEQ 7$ 
ADD #2,R1 
BR 4$ 
5$: MOV AWAIT,R1 
6$: TST (R1) 
BEQ 2$ 
CMP (R1),(R5) 
BEQ 7$ 
ADD #2,R1 
BR 6$ 
7$: MOV (R1),RO 
TYPE -SCRLF 
TYPE ~DEASSG 
JSR PC, SUMARY 
CLR (R5) 
CLR (R1) 
JSR PC,CMPRES 
BR 2s 
;LOOK FOR DRIVES TO BE ASSIGNED 
MAIN1: MOV #8. ,R3 
CLR R2 
CLR R4 
CLR RS 
1$: TST NEWUNT (R5) 
BNE $ 
2$: ADD #2,R5 
RG 
Pe 
1$ 
MAIN2 


KEYBOARD INTERRUPTED ? 
BRANCH IF NOT 
: DON" T DEASSIGN ANY DRIVE,IF SYSTEM NOT IDLE 


TLET ALL DRIVE FINISH ORDER 
+ 7 THE KEYBOARD 


DRIVE COUNTER 
sADDRESS OF "DROP DRIVE’ TABLE 
ee Nem te. PRESENT POSITION 


S_ONE 
: INCREMENT TO NEXT TABLE POSITION 
;DECREMENT DRIVE COUNTER 
F MORE TO CHE CK 
ZANY grives ACTIVE ? 


IF YES 
GIVE CONTROL TO MONITOR 


sADDRESS OF "AVAILABLE DRIVES" TABLE 

SEE IF AT END OF TABLE 

3BR IF AT END: GO CHECK ‘WAIT’ TABLE 

iIS ge IN *AVAIL* THE ONE TO BE DROPPED 


Y 
INCREMENT *AVAIL' TABLE ADDRESS 
[CONTINUE LOOKING 
ae THE ADDRESS OF THE BUFFER WAIT TABLE 
T THE END OF THE ‘WAIT’ TABL 
BR IF YES: SEE IF ANY re *DROP" REQUESTS 
DRIVE IN THE ‘WAIT* TABLE ? 


BR IF IT IS 

: INCREMENT ‘WAIT’ TABLE ADDRES 5 
;CONTINUE LOOK THROUGH THE ‘WAIT’ TABLE 
zPUT THE DRIVE'S BLOCK ADDRESS IN RO 


:C 

:TYPE “DRIVE DEASSIGNED* 

;TYPE THE DRIVE'S PERFORMANCE tn aye 

CLEAR THE "DROP DRIVE’ TABLE ENTR 

REMOVE THE DRIVE FROM THE ‘AVAIL' oR "WAIT" TABLE 
COMPRESS THE RESPECTIVE TABLE 

:SEE IF ANY MORE DRIVES 


DRIVE COUNT 
:"AVAIL’ INDEX 
ASSIGN LIST INDEX 
7NEW 


DRIVE INDEX 
NEW DRIVE IN THIS POSITION 
7BR IF THERE IS 
: INCREMENT R5 
: INCREMENT ASSIGN INDEX 
: DECREMENT iG COUNT 


F MORE DRIVES 
:START OPERATIONS FOR THE AVAILABLE DRIVES 


SEQ 0069 





oO 


wap 
33 
eee 


SSRIESRELLSSSLKARA 
eset 
RRS SNSEREX 


satan 


105 760 
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001203 
073331 


074162 
001616 
000002 
001574 

74 


001640 
001640 
016312 
000006 
000072 
016676 


017024 
001526 


001640 
020356 
000002 


001526 
001616 
006676 
001616 
000104 


000026 
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001616 
001550 


3$: 


5$:° 


»SCRLF :CR- 
- UNTMSG ;° DRI VE " 
R4,-(SP) 73SAVE R4 FOR TYPEOUT 

2: TYPE DRIVE NUMBER 

3:GO_ TYPE=-OCTAL ASCII 
2 sz TYPE 2 DIGIT(S) 

<i RR TED? LEADING ZEROS 
-ASGND STARTED’ 
tomers :AT " ves AVAILABLE TABLE 
eee R2 HINCREMENT AVAILABLE TABLE INDEX 

TINUE LOOKING FOR END OF TABLE 

NEWUNT (RS) savaitthay sMOVE ADDR OF DRIVE INTO AVAIL LST 
NEWUNT (R5) TAKE DRIVE OUT OF NEW DRIVE — 
ATABITCRG) /ASNLST 3SET DRIVE ASSIGNED INDICATOR 
#2,R2 : INCREMENT AVAILABLE TABLE POINTER 
2s LOOK FOR MORE DRIVES 


GET PARAMETERS, BUFFER SPACE, AND START ORDERS FOR DRIVES IN 
;THE "AVAILABLE* QUEUE 


MAIN2: +. 


SET UP THE WAIT QUEUE F 
ZALL THE DRIVES THAT WAITING 
:FOR BUFFER IN 


THREE TIMES OF 
7; SEARCHING 

R2 ;START FROM THE FIRST por 
WAIT(R2) [WAIT FOR THE BUFFER 
MAIN3 sEXIT IF NONE 
WAIT(R2),RO [LOAD RO WITH THE DPB ADDRESS 
-(SP) ;CLEAR THE STACK FOR BUFFER REQ 
PC, GE TBUF +t TO GET THE BUFFER RT. 
(SP) +, $BUF (RO) F 0,BUFFER IS STILL B. AVAILABLE 
2s : CH IF NO ate AVAILABLE 
en [CLEAR THE FAIR FLAG 
PC,FILBU :FILL THE BUFFER. 
PC, GODRIV ;SET COMMAND AND GO 
#ORDERQ,RS [PUT THE WAIT one INTO ORDER QUEUE 
(R5)+ ;QUEUE AVAILABLE ? 
72 :BRANCH IF NOT 
RO,-(R5) ;LOAD THE DPB ADDRESS INTO THE ORDER QUEUE 
MWAIT,R1 [REMOVE THE QUEUE < ol THE WAITING QUEUE 
R2,R1 sOFFSET THE QUEUE POSITION 
PC, CMPRES ; COMPRESS THE QUEUE 
1$ [BRANCH IF DONE 
#2,R2 ;CHECK THE NEXT QUEUE 
1$ [LOOPING BACK 
ORDERQ ZOUTSTANDING BUFFER REQUESTS 
IDLE ‘BR IF THERE ARE 
R2 ;CLEAR DRIVE TABLE POINTER 
AVAIL (R2) TANY DRIVES WAITING FOR PARAMETERS 
+ ; CH IF ANY 


BRANCH IF NONE 

CONTROL BLOCK ADDR IN RO 

; PARAME TERS ote SELECTED ? 
BR oy HAVE 


IDLE 
AVAIL (R2) ,RO 
$NEXT (RO) 


6$ 
$PACK (RO) COMMAND FOR THE DRIVE ? 


SEQ 0070 





5 
3 


ca 


S&ENOAOLO 


EEECTEEEEEUESTE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


166 
167 006762 


SSSBLEARUNSSVSVRGRAVLVS 


001403 
004737 


000404 
004737 
004737 
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020374 
017102 
020064 
016312 
000006 
016676 
000072 


017024 
001526 


000072 
000003 


001640 


000002 
001616 
020356 


001526 


000016 
000002 
016154 
007162 


001364 
030152 
030200 


001616 
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000072 





8$: 


9$: 


10$: 





5$ 

PC ,WRIPK 

7$ 

PC,SELPAR 
PC,GETPAR 
~(SP) 
PC, GE TBUF 
aaa (RO) 
PCF ILBUF 
SFAIR(RO) 


PC,GODRIV 
#ORDERQ,RS 
(R5)+ 


RO.-(RS5) 
108 
$FAIR(RO) 


#3, $FAIR(RO) 
9$ 


AWAIT ,RS 
(R5)+ 


~e 
RO,-(R5) 
10$ 
#2,R2 

1$ 


#AVAIL,R1 
R2,R 
PC,CMPRES 
1$ 


:BR_IF NOT 
GET DATA PACK PARAMETERS 
7GET THE BUFFER 
SELECT THE PARAMETERS 
;LOAD NEW PARAMETERS 
sMAKE ROOM ON THE STACK FOR THE BUFFER ADDR 
GET BUFFER 
;MOVE BUFFER ADDR TO DPB 

IF _*O* ADDR (NO BUFFER) 
FILL THE BUFFER 
CLEAR THE ‘FAIRNESS‘ 
;PUT CURRENT DPB IN DRIVER. 
ADDRESS OF ORDER QUEUE IN RS 
ND OF QUEUE ? 


; F NOT 
PUT BLOCK ADDRESS INTO QUEUE 
: CONTINUE LOOKING 


: INCREMENT THE FAIR COUNT 
THREE TIMES,BUFFER IS NOT AVAILABLE? 
BRANCH IF NOT OVER THREE TIMES 
— INTO THE WAIT QUEUE 
aren te a Demat: ? 
“BRANCH IF 
LOAD INTO WA WAIT QUE 
[REMOVE THE DPB FROM AVAILABLE QUE 


: INCREMENT INDEX 

BRANCH BACK TO fy* a DRIVE 
: "AVAILABLE TABLE ADDRESS 
[FORM ADDRESS OF LAST ENTRY 
COMPRESS THE TABLE 

: CONTINUE LOOKING 


;GET BUFFER ASSIGNMENTS FOR DRIVES IN THE "BUFFER WAIT’ QUEUE 


WAIT FOR AN ORDER TO FINISH 


IDLE: 
1$: 


16$: 


2s: 


HORDERQ,R1 
(R1)+,RO0 


IDLE 
+ acai 


PC, STATIS 
PC PROCES 
BADSEC 
PC, ABNRML 
(SP)+,R1 
#AVAIL,RS 
(R5)+ 


2s 
(R1),-(R5) 


sADDRESS OF THE ORDER QUEUE IN R1 
PUT BLOCK ADDRESS INTO RO 
END OF QUE 


BR_IF UE 
2 SEE IF DRIVE FINISHED 


: THE QUEUE AD S 
sACCUMULATE STATISTICS FOR DRIVE IN RO 
<peOtese ENO AID 

PROCESS END OF BR aay: 

ZCLEAR THE BAD T R/ SEC ERROR INDICATOR 
SEE IF ANY DRIVES HAVE TOO MANY ERRORS 
:1S_IT END OF PASS ? 
RESTORE THE ORDER TABLE INDEX 
:FIND THE ree fi THE *AVAILABLE’ TABLE 
SEND OF THE T 
BR IF NOT AT END. OF LIST 
MOVE THE BLOCK ADDRESS INTO THE TABLE 


SEQ 0071 


rn eee 


| 
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MAIN PROGRAM SEQ 0072 
168 006764 004737 020356 JSR PC, CMPRES : COMPRESS THE ORDER QUEUE 
169 006770 004737 016446 JSR PC,RELBUF sRESTORE BUFFER 
170 006774 IDLE1: 
171 006774 032777 000004 172152 1S: BIT #SWO2 ,ASWR : TYPE PERFORMANCE SUMMARY 
172 007002 001014 BNE $ ;BR 
173 007004 005737 001316 TST STATIN jt # TO TYPE THE PERFORMANCE SUMMARY ? 
174 007010 001411 BEQ 2$ F NOT 
175 007012 005037 001316 CLR STATIN CLEAR THE INDICATOR 
176 007016 005737 001550 TST ASNLST ANY DRIVES ASSIGNED ? 
177 007022 001404 BEQ 2$ ;BR_IF NO 
178 007024 104401 073572 TYPE .REPHD : TYPE PERFORMANCE REPORT HEADING 
179 007030 004737 023530 JSR PC,STATPR TYPE THE SUMMARY 
‘ 007034 000137 006100 23: JMP MAIN CONTINUE THE LOOP 
is SETUP TO REFORMAT AN ERROR SECTOR 
184 007040 032777 000001 172106 REFMT: BIT #SWO, @SWR READ ONLY SWITCH SET ? 
185 007046 001044 BNE REFMTX BR IF IT IS 
186 007050 032777 000200 172076 BIT #SW7 ,ASWR SWITCH 7 SET ? 
187 007056 001040 BNE REFMTX 3BR IF IT IS 
188 00 005737 001500 TST FORMAT WRITE — & DATA ORDERS ALLOWED 7 
189 007064 001435 BEQ REFMTX :BR IF 
190 00 022760 001465 002152 CMP #821. ,$RMDC (RO) LEGAL VALUE ? 
191 007074 101431 BLOS REFMTX NOT FORMAT 
192 007076 004737 023176 JSR PC,READDR GET CORRECTED SECTOR-TRACK ADDRESSES 
193 007102 012660 000100 MOV (SP)+,$NCYL (RO) ; CYLINDER 
194 007106 112660 000077 MOVB (SP)+,$NTRK(RO) ;TRACK ADDR TO DPB 
195 007112 112660 000076 MOVB (SP)+,$NSEC(RO) ;SECTOR ADDR TO DPB 
196 007116 012760 000402 000102 MOV #258. - SNURDL (RO) WORD COUNT FOR FORMAT 
197 007124 112760 000003 000074 1$: MOVB #3,$N (RO) COMMAND CODE 
198 007132 004537 017656 JSR RS CHRADR AVOID REFORMAT BAD SPOT 
199 007136 000401 BR 2s BRANCH IF NOT ON BAD SPOT 
200 007140 000407 BR REFMTX BRANCH IF ON BAD S 
201 007142 020022 2$: JSR PC,GETPAT GET A PATTERN 
202 007146 110560 000075 MOVB R5,S$NPATC(RO) PATTERN CODE TO CONTROL BLOCK 
203 007152 012760 177777 000104 MOV #-1,$NEXT(RO)  ;SET PARAMETERS SELECTED INDICATOR 
Soe 007160 000207 REFMTX: RTS PC ; RETURN 
$8 sPROCESS THE ORDER TERMINATION 
208 007162 111037 001346 PROCES: MOVB (RO) ,UN :DRIVE NUMBER FOR ANY ERROR MESSAGES 
007166 005760 000016 TST STATUS(RO) SEE IF DRIVER SIGNALED AN ERROR 
210 007172 100427 BMI ERPR' :BR IF OR 
211 007174 032760 100000 002116 BIT #1115, SRMCS1(RO) _;SEE IF 'SC* SET 
212 007202 001410 BEQ :BR' IF NOT SET 
213 007204 032760 040000 002116 BIT WB1T14,$RMCS1(RO) ;SEE IF "TRE’ SET 
214 007212 001017 BNE ERPROC :BR IF 
215 007214 032760 040000 002130 BIT #81714, $RMDS(RO)- ise IF _‘ERR' SET 
216 007222 001013 BNE ERPROC BR IF SET 
217 007224 004737 013306 1$: JSR PC,CKERR NO ERROR, CHECK ERROR BITS ANYWAY 
218 007230 004737 013400 JSR PC, CKBUS NO_ERROR, CHE CK BUS ADDR & WC 
219 007234 032777 000002 171712 BIT #SWO1, @SWR [DATA COMPARE ? 
220 007242 001002 BNE 2 :BR IF NOT 
221 007244 004737 013464 JSR PC,CMPAR :NO_ ERROR, COMPARE DATA 
$56 007250 000207 2$: RTS PC ;RETURN 


224 ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR 





225 
226 007252 
60 


7350 


268 436 
269 007442 
270 

271 007446 


272 007452 
273 007456 


007462 

007464 
274 007466 
275 007472 
276 


007500 
277 007502 


ops 4 
104401 
013746 
104403 

002 


004737 
032777 
001401 
000000 
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000200 
007646 


001203 
001203 
066527 


074064 
073331 
001346 


024340 
100000 
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000016 


000016 
000016 
000016 
000016 
000016 
000016 


171454 


IE Stim ota. ad tbe Ee en, Yes 


ERPROC: BIT tthe STATUS (RO) a ry BIT SET 
BEQ ERP 3BR 


F ORDER DIDN' T COMPLETE NORMALLY 


JMP BONE PROCESS ERROR WITH "DONE’ BIT SET 
sPROCESS ORDER COMPLETION WITH ‘ERROR’ & ‘DONE NOT’ BITS 
ERPRC1: we — ; SEE Ld DRIVE WAS UNSAFE 
BIT ta »STATUS(RO) ;PARITY i OCCURRED 


BNE IF 
BIT #81110, STATUS (ROS sFATAL PARITY ERROR? 
BNE PAR -BR IF T IS ONE 
BIT #1109, STATUS (RO) g TIMEQUT? 
BNE :BR IF YES” 
BIT wait 16:81701, + STATUS (RO) DRIVE WENT OFFLINE ? 
BIT #1T2, STATUS(RO)- PORT REQUEST TIME OUT ? 
BNE :BR IF IT DID 
RTS pe TERROR. RETURN 
;DRIVE IS PERSISTENTLY UNSAFE 
PUNSAF: TYPE | $CRLF CRLF 
JSR PC,LINE1 PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EMi2 :PERSISTENT DEVICE UNSAFE MESSAGE 
JSR PC ,LINE2 [PRINT LINE 2 OF ERROR MESSAGE 
JSR PC,LINE3 :PRINT LINE 3 OF E 
JSR PC,LINES :PRINT LINE 4 OF THE ERROR MESSAGE 
JSR PC, INCTOT INCREMENT TOTAL ERROR COUNT 
JSR PC. LINE? :PRINT LINE 7 OF ERROR MESSAGE 
JMP DROP :DROP THE DRIVE 
;UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED 
UCPAR: TYPE  ,$CRLF ZCR-LF 
TYPE *SCRLF :CR-LF 
TYPE  ,&M10 UNCORRECTABLE PARITY ERROR’ MESSAGE 
BR FALPR1 [FINISH PROCESSING THE ERROR 
;"FATAL' MASSBUS PARITY ERROR OCCURRED 
FALPAR: TYPE _—, $CRLF i CR-LF 
TYPE >$CRLF > CR-LF 
TYPE  °>EM11 > "FATAL PARITY ERROR" MESSAGE 
FALPR1: TYPE  .MSGON :TYPE ‘ON 
TYPE § |UNTMSG :TYPE "DRIVE' 
MOV UNIT, =(SP) ::SAVE UNIT FOR TYPEOUT 
i: TYPE DRIVE R 
TYPOS ::GO TYPE--OCTAL ASCII 
.BYTE 2 ::TYPE 2 DIGIT(S) 
-BYTE 0 = SUPPRESS LEADING ZEROS 
JSR PC, INCTOT INCREMENT TOTAL ERROR COUNT 
BIT #SW15,aSWR ;HALT ON ERROR ? 
BEQ 1$ 
HALT TERROR HALT 


SEQ 0073 


Ee 


owe & 
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278 007504 
280 
82 007506 
283 007512 
007516 
285 007522 
007526 
287 007532 
88 007536 
289 007542 


305 007610 
306 0076 
309 007 


WIWNAANWNIWWW 
ee ce ee ee ed ed eed ed 
WODBNAUSWN—O 


8 


7756 


000207 


0 
022654 


000030 
012754 
040000 


010630 
040000 
012514 
000400 
011156 
000020 
011354 
000200 


011550 
020000 


000016 


002126 


002130 


002132 


002132 


002132 


002132 


18: 


SWTIM: 


:DRIVE WENT OFFLINE 


OFLIN: 


PRTIM: 


RTS PC 
; SOFTWARE TIMEOUT OCCURRED 

JSR at 
DISPLY ,EM1 

JSR PC,LINE2 
JSR PC,LINES 
JSR PC,LINES 
JSR PC, INCTOT 
JSR PC,LINE? 
RTS PC 

TYPE , SCRLF 

SR PC,LINE1 
DISPLY ,EM14 
JSR PC,LINE2 
JSR »LINES 
JSR PC,LINES 
JSR PC, INCTOT 
JSR PC,LINE7 
JMP DROP 

;PORT REQUEST TIMEOUT ERROR 

JSR PC,LINE1 
DISPLY ,EM15 

JSR PC,LINE2 
JSR PC,LINES 
JSR PC,LINE 
JSR C.INCTOT 
JSR PC,LINE7 
RTS PC 


PRINT LINE 1 OF ERROR MESSAGE 
ZPR Ss 


OR 
PRINT LINE 7 OF ERROR MESSAGE 
ETURN 


7 CR-LF 

;PRINT LINE 1 OF THE ERROR MESSAGE 
PRINT OFFLINE MESSAGE 

SPRINT LINE 2 OF THE ERROR MESSAGE 
;PRINT LINE 3 OF THE ERROR MESSAGE 


ROR COUNT 
LINE 7 OF THE ERROR MESSAGE 
DROP. THE DRIVE 


2 TYPE LINE 1 OF "a wiete MESSAGE 
T_MESSAGE 


0 
: INCRENENT TOTAL ERROR COUNT 
Pn I 7 OF THE ERROR MESSAGE 


sPROCESS ORDER COMPLETION WITH ‘ERROR’ & ‘DONE’ BITS SET 
#B1T04!BITO3,$TATUS(RO) ;UNSAFE OCCURRED 
+6 = IF NOT 


DONE : 


1$: 


UNSAF 
#E1T14, “$RMCS2(ROS 
WCKER : 
bly » SRMDS (RO) ” 


“ PROCESS 
= » SRMER1 (RO? Bh IFN SET? 


HCRC 


PROCESS 
Wel TO4, he Oe :"FMT’ SET? 

~ :BR IF NOT SET 
CKF K_ FORMAT ERROR 
We1T07, SRMER1 (ROS: HCE: SET? 
2H F NOT SET 
K "HCE* ERROR 

WITS. SRMERT (ROS ©” ASE SET? 


REPORT UNSAFE 
sIS “WCE’ SET ? 
(CH IF NOT SET 
WRITE CHECK ERROR 
CHECK ‘ERR 
F SET 


*TRE' 


NOT 
wHCRC' 


CZRMUAO RMOS/3/2 PERF EXER 
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336 007766 0001 $6 012050 
000010 
338 0 
339 010002 000137 012202 
340 010006 032760 000040 
342 010016 000137 012656 
002000 
345 010032 0001 96 012274 
346 0 004000 
348 010046 000137 012326 
001000 
01 032760 002000 
000207 
032760 010000 


10104 000137 012160 
005760 002132 
10000, 


359 010 137 010154 
360 0101 032760 060000 
361 010130 1 


001006 
10132 032760 100000 
001004 


000137 011322 
365 Rioiss 000137 012614 


369 

370 010154 022760 010041 
371 010162 

372 010164 005760 002162 
373 010170 

374 010172 005760 002164 


6 010 0004 
377 010202 004737 021112 
378 010 


000003 
010230 004737 016026 
384 010236 004737 022572 


0004 
386 0 004737 022600 
387 At 4 004737 022654 


004737 020760 


391 010264 004737 021112 
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BEQ +6 ;BR IF NOT SET 
JMP OPIER [REPORT ‘OPI 
002132 BIT #BIT3,$RMER1(RO); PAR’ SET? 
BEQ +6 :BR IF NOT SET 
JMP PARER SREPORT ‘PAR’ 
002132 BIT #31T5,$RMER1(RO) ; WCF’ SET? 
BEQ +6 :BR IF NOT SET 
JMP WCFER “REPORT ‘WCF ' 
002132 BIT #B1T10,$RMER1(RO) ;"IAE" SET? 
BEQ +6 3BR IF NOT SET 
JMP iAEER “REPORT "IAE* 
002132 BIT #B1T11,$RMER1(RO) ;"WLE* SET? 
BEQ ovSen :BR IF NOT SET 
JMP SREPORT ‘WLE® 
002132 BIT W519, SRMERT (RO)’; "AOE’ SET? 
BEQ 2$ :BR iF NOT SET 
002130 BIT #B1T10,$RMDS(RO)’;"LST" SET? 
BEQ 2$ :BR IF NOT SET 
RTS PC -"AOE’ & LST’ SET, EXIT 
002132 2: BIT #81112, $RMER1 (ROS iSEE IF "DTE* SET 
BEQ +6 :BR°'IF NOT 
JMP DTEER :REPORT ‘DTE' ERROR 
TST SRMER1 (RO) SFE IF "DCK' SET 
BPL .+ :BR IF NOT 
JMP DCKER CESS 'DCk* 
002160 BIT #81T14'B1T13, sAMERZ RO) z"SKI' OR "OCYL' SET 
BNE H IF SKI, OCYL SET 
002160 BIT #B1T15, SRMER2(ROS BAD SPO 
BNE 4$ BRANCH IF $0" (NO, OTHER ERROR) 
JMP DRVER sREPORT ERROR 
3$: JMP SKIER [REPORT SKI ERROR 
4$: RTS PC [EXIT FROM ERROR ANALYSIS ROUT. 


PROCESS DATA ("DCK*) CHECK ERROR 
002162 DCKER: a4 gress. SRMEC1 (RO) VALID POSITION COUNT ? 


LOS IF NOT VALID 
are $PMECI (RO) POSITION COUNT 0? 
TST $SRMEC2 (RO) : VALUE IN PATTERN REGISTER ? 
BNE 4$ F YES 
BR 6$ :DATA CHECK ERR 
1$: JSR PC,LINE1 : TYPE FIRST LINE. OF ERROR MESSAGE 
DISPLY P ary ;TYPE "ECC LOGIC ERROR’ 
JSR C,LINE2 TYPE LINE 2 OF ERROR MESSAGE 
JSR PC. INCTOT ; INCREMENT TOTAL ERROR COUNT 
001352 MOV #3.RETRY ;RETRY COUNT 
JSR PC, SRETRY :RETRY THE ORDER 
BR 2s" sRETRY WAS NOT SUCCESSFUL 
JSR PC,LINE6C STYPE LINE 6C OF wo peSSAge 
BR 3$ :FINISH THE ERROR R 
2$: JSR PC,LINE6D :TYPE LINE 6D OF ERROR MESSAGE 
3$: i 3 al :TY | LINE 7 OF ERROR MESSAGE 
4$: JSR PC,SPOTCK SEE. IF ERROR AT A BAD SPOT ON THE PACK 
5$: RTS PC z1T IS, DON'T REPORT IT 


6$: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 


SEQ 0075 


392 010270 
393 010274 
394 010300 


406 5 
407 010354 
408 360 
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022544 
000020 


017024 
000016 


000200 


024340 
072455 


007266 
001350 
010100 
001353 
001352 
002470 
000002 
015710 
066106 


023112 


014710 
022600 


022556 
024220 
00000 


013502 
001401 


_ 


00135 
00213 


NO 


001352 


000016 


002132 
002132 


001353 


066071 
001352 


001400 


DISPLY 


DCKER1: JSR 


1$: 


2$: 
3$: 


14$: 


4$: 


5$: 
6$: 


7$: 
8$: 


9$: 
10$: 
11$: 


ard! 
NE2 
NES 

PC. ‘LIN NEG 


PC,P 
WITS BIT 
#B1T12!B 


1$ 
PC,LINE6 


#16. ,RETRY 
R1 


PC,GODRIV 


Benge -SRMERI (RO) 
RETRY+1 

RETRY .RETRY¢1 
2s 

R1 : INCRE 
OFF COD(R1) , GENDPB+SFMT 
9$ 2BR IF 


OF FST 
GENDPB+STATUS 


2s 

PC.LINE8 
PC, INCHRD 
Jetty 


PC; INCSOF 
PCE 


PC,LINE6D 
6$ 


PC,LINE6A 

PC, INCSOF 

#1, FRSTER 
C,CMP 


PC, CMPARD 
FRSTER+1 
13$ 


L 6 
MACRO VO3.91 11-APR-80 14:52:06 PAGE 9-7 


29 
2S 
—— 
=> 
ma 
-—x 


OR 
TO BE PRINTED 


112! artist RASK LOAD ERR OR MASK 
1T06, -SRERT (RO) 


—— "DTE’ & ‘ECH' 


F SE 
sPRINT LINE 6 OF ERROR MESSAGE 
aia THE ERROR REPORT 
;RETRY COUNT 
7R1 IS OFFSET CODE POINTER 


sRETRY 


- STATUS (RO) TEST FOR DONE 
3$ BR IF NOT DONE 
10$ :BR_IF NOT ERROR 
#B1T7,$TATUS(RO) iF io IF * teres TERMINIATED NORMALLY 
PC, INCTOT ‘INCREMENT TOTAL ERROR COUNT 
-LIN8M : "DIFFERENT ERROR DURING RETRY‘ 
ERPRC1 ;SEE WHICH ERROR 
MASK ,SRMER1(RO) ; 2 AT CURRENT on 


BR_IF DIFFERENT ERROR 


2*ECH* OR ‘DTE* STILL SET ? 
F NEITHER ST 


: INCREMENT RETRY COUNT 

:DONE ? 

:BR_IF NOT 
MENT TABLE INDEX 
:OFFSET CODE 

END OF OFFSET TABLE 

ZNEW RETRY LIMIT 


ET 
iSEE IF FINISHED WITH OFFSET 
IF NO ERROR PERFORMING OFFSET 


er 


:PRINT LINE 6A OF ne 
ZINCREMENT *SOFT’ ERR 


:BRANCH IF ERROR 


SEQ 0076 
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SEQ 0077 
004737 024340 JSR PC, INCTOT + INCREMENT TOTAL ERROR COUNT 
450 010612 104414 072655 DISPLY ,LINSG = "DATA COMPARE OK' MESSAGE 
451 010616 004737 022654 12$: JSR PC ,LINE7 ;PRINT LINE 7 OF ERROR MESSAGE 
452 010622 004737 007040 13$: JSR PC.REFMT REFORMAT THE ERROR SECTOR 
455 010626 000207 RTS PC “RETURN 
439 :WRITE CHECK ERROR PROCESSING 
457 010630 032760 100000 002132 WCKER: BIT #BIT15,$RMER1(RO) ;:SEE IF ‘DCK* SET ALSO 
458 010636 001034 BNE 2$ :BR'IF IT IS 
459 010640 004737 021112 JSR PC,LINE1 [PRINT LINE 1 OF ERROR MESSAGE 
1 104414 067071 DISPLY ,EM23 [PRINT WCE & DCK 
461 010650 005037 001350 CLR MASK [CLEAR ERROR MA 
54 004737 JSR PC,LINE2 [PRINT LINE 2 OF ERROR MESSAGE 
0 737 021574 JSR PC; LINES ‘PRINT LI OF ERROR MESSAGE 
0 004737 022244 JSR PC. LINES [PRINT LINE 4 OF ERROR MESSAGE 
004737 022334 JSR PC-LINES [PRINT LINE 5 OF ERROR MESSAGE 
465 010674 004737 024340 JSR PC: INCTOT Z INCREMENT TOTAL ERROR COUNT 
012737 000003 001352 MOV #3. RETRY SRETRY LIMIT 
46 004737 016026 JSR PC. $RETRY TRETRY THE OPERATION 
468 010712 000403 BR SRETRY UNSUCESSFUL 
469 010714 004737 022572 JSR PC,LINE6C [PRINT LINE 6C OF ERROR MESSAGE 
470 010720 000502 BR 8$ [FINISH PROCESSING THE ERROR 
471 010722 004737 022600 - | 18: JSR PC,LINE6D [PRINT LINE 6D OF ERROR MESSAGE 
472 010726 000506 BR 10$ ZFINISH PROCESSING THE ERROR 
473 010730 004737 020760 2$: JSR PC, SPOTCK ZSEE IF ERROR AT BAD SPOT ON THE PACK 
474 010734 000507 BR 11$ [EXIT IF AT BAD SPOT ON PACK 
475 010736 006737 021112 JSR PC,LINE1 [PRINT LINE 1 OF ERROR MESSAGE 
476 010742 012737 067016 010770 MOV #EM22,13$ “ASSUME THAT EM22 WILL BE PRINTED 
477 010750 032760 040000 002126 BIT #B1T14,$RMCS2(ROS :DID "WCK* ALSO 
478 010756 001003 BNE $ :BR'IF IT DI 
479 010760 012737 067717 010770 MOV #EM37, 13% eitest Aor "DCK" AND ‘WCK" NOT DURING 
481 010766 104414 12$:  DISPLY TYPE THE ERROR MESSAGE 
482 010770 000000 13$: WORD 0 ZMESSAGE ADDRESS GOES HERE 
485 010772 004737 021166 JSR PC,LINE2 SPRINT LINE 2 OF ERROR MESSAGE 
010776 004737 021574 JSR -PCLINES SPRINT LINE 3 OF ERROR MESSAGE 
011002 004737 022244 JSR PC-LINE4 SPRINT LINE 4 OF ERROR MESSAGE 
011006 004737 022334 JSR PC-L INT LINE 5 OF ERROR MESSAGE 
486 011012 032760 000100 002132 BIT Weitoo: SAMERt (ros sECH SET ALSO ? 
487 011020 001442 BEQ 8$ ZFINISH PROCESSING THE ERROR 
488 011022 012737 000020 001352 3$: MOV #16. ,RETRY 7RE TRY LIMIT - 16 (10) 
489 011030 004737 017024 4$: JSR PC,GODRIV “RETRY THE ORDER 
490 011034 005760 000016 5$: TST $TATUS (RO) SORDER FINISHED ? 
491 011040 001775 BEQ +} ‘BR IF NOT 
492 011042 BMI és [BR IF ERROR ON ORDER 
493 011044 105237 001353 INCH” RETRY+1 S INCREMENT RETRY COUNT 
494 011050 022572 JSR PC,LINE6C :PRINT LINE 6C OF ERROR MESSAGE 
495 011054 000431 BR 9$ FINISH ERROR PROCESSING 
496 011056 105237 001353 6$: INCB —RETRY#1 : INCREMENT RETRY COUNT 
497 011062 123737 001352 001353 CMPB «RETRY RETRY+1 
498 011070 001714 BEQ e AT RETRY LIMIT 
499 011072 032760 100000 002132 BIT #81715, $RMER1 roi Ment 8 
500 011100 001407 BEQ 7$ -BR’ IF NOT = "DIFFERENT ERROR 
501 011102 032760 000100 002132 BIT #B1T06,$RMER1(ROS ;"ECH’ ALSO SET 
502 011110 001347 BNE :BR'IF IT IS, RETRY * on ER 
503 011112 004737 022572 JSR PC,LINE6C [PRINT LINE 6C OF ERROR MESSAGE 





SBSRee 
lelelelelelelole|ele) 


ted td od od =) ow 3 
FESESEVRRSS 


AAA AA AVIUIVIVIUT 


ad cad aed ed cd ce cd eed ceed ed 
SOOONAUMUSWH—O 


Nm 

W 
lelelelelelelelelelelelelelo) 
dk ed ad ad od od ad ed ed ed 
an a ce an ed an ened cl ae end ed ean ad ad 


SUNNY 


wi 

™~m 
4 oe 
RIFVSE 


BURNT SSS 


wi 
= 
So 
= 
= 
Nw 
RS 


551 346 
552 011352 
553 


554 
555 
556 011354 
557 011362 
558 011364 
560 011370 
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023112 


024340 
022654 


024340 
022654 
007040 


020760 
023176 


RSs 


00000 

016026 
022572 
022654 


022600 
022654 
007040 


021112 
067361 
021166 
O51 86 


24340 
022654 


000400 
011156 
023176 
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BR 8$ 
7$: JSR PC,LINES 
BR 9$ 
8$: JSR PC, INCTOT 
JSR PC’ LINE? 
BR 11$ 
9$: JSR PC, INCTOT 
10$: JSR PC. LINE7 
JSR PC -REFMT 
11$: RTS PC 


REPORT *HCRC' ERROR 
HCRCER: JSR PC, SPOTCK 
BR 3$ 

JSR PC ,READDR 


DISPLY , 
SR C.LINE2 
JSR C,LINES 
JSR PC,LINES 
JSR 
002126 BIT 
BEQ 
JSR PC,LINES 
1$ JSR PC; INCSOF 
JSR PC, INCTOT 
001350 MOV #B1T8 MASK 
001352 MOV #3 RETRY 


JSR PC, SRETRY 
2$ 


BR 
JSR PC,LINE6C 
JSR * Teead 


2s: JSR PC,LINE6D 
JSR PC,.LINE7 
JSR + Seeethied 


3$: RTS 

;REPORT DRIVE ERROR 

DRVER: JSR PC,LINE1 
DISPLY ,EM30 
JSR PC,LINE2 


JSR PC; INCTOT 
JSR PC .LINE? 


PROCESS FORMAT ("FER") ERROR 
002132 CKFMT: BIT 


BEQ 
JMP HCRCER 
1$: JSR PC,READDR 


PC{LINESA 
weiTien SRmcs2cROs MCE E 
1$ :BR° IF NOT 


OAIAT'L ew: 


FINISH” PROCESSING 
: INCREMENT TOTAL ERROR COUNT 
FINISH THE ERROR MESSAGE 


2 EX 

: INCREMENT TOTAL ERROR COUNT 
FINISH THE ERROR MESSAGE 

i hd THE SECTOR IN ERROR 


:SEE_IF ERROR AT PACK BAD SPOT 
EXIT IF IT IS 

;READ ERROR SECTOR HEADER 

7GET THE HEAD INFORMATION 
PRINT AS ts OF ERROR MESSAGE 


POR 
zPRINT LINE 2 OF ERROR MESSAGE 
sPRINT LINE 3 OF ERROR MESSAGE 
PRINT LINE 4 OF ERROR MESSAGE 
T THE HEADER INF ORMAT ION 
RROR ALSO ? 


DISPLAY WORDS WHICH ites Mal 
: INCREMENT ‘SOFT’ ERROR C 

: INCREMENT TOTAL ERROR COUNT. 
SET ERROR MASK 


:RETRY LIMIT 

zRETRY ORDER 

ZRETRY NOT SUCESSF 

PRINT LINE 6C OF ERROR MESSAGE 
SPRINT LINE 7 OF ERROR MESSAGE 


2EXI 
SPRINT LINE 6D OF ERROR MESSAGE 


:PRINT INE 7 OF ERROR MESSAGE 
: REFORMAT THE ERROR SECTOR 


PRINT 4 oy) 1 OF ERROR MESSAGE 
ERROR 


OUN 
Any aes 7 OF ERROR MESSAGE 


#B1T8,$RMER1 (RO) Lae SET ON ORIGINAL ERROR ? 
1 3BR_IF NOT SET 


REPORT HCRC ERROR 


GET CORRECTED TRACK & SECTOR ADDRSSES 


ERROR 
NE 8 = "DIFFERENT ERROR ' 
NG ERROR 


SEQ 0078 
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SEQ 0079 


561 011374 737 015734 JSR PC ,READHD :READ HEADER 
26¢ 011400 032737 000400 066124 BIT WBITS,GENREG+RMER] ;"HCRC' SET WHEN HEADER READ? 
563 011406 00100. BNE ;BR IF "HCRC* SET 

364 011410 000137 012354 JhP FMTER =NO, ERROR IS ‘FMT’ ONLY 

566 011414 004737 620760 2s: JSR PC, SPOTCK 3SEE IF ERROR AT BAD SPOT ON THE PACK 
567 011420 90045 BR 5$ sEXIT IF IT IS 

568 011422 004737 021112 JSR PC,LINE1 :PRINT LINE 1 OF E 

569 011426 104414 067150 DISPLY :HEADER ERROR - FMT BIT DROPPED uP 
570 011432 737 021166 JSR PC ,LINE2 :PRINT LINE 2 OF E 

571 011436 004737 021574 JSR »LINES ;PRINT LINE 3 OF ERROR MESSAGE 
322 011442 004737 022244 JSR PC,.LINES “PRINT LINE 4 OF ERROR MESSAGE 

573 011446 032760 002126 BIT WBITI4,S$RMCS2(ROS ;: "WCE E ALSO 

574 011454 001402 BEQ 3$ :BR IF NOT 

575 011456 004737 022334 JSR PC LINES ZDISPLAY WORDS WHICH CAUSED ‘WCE’ 
576 011462 004737 022434 3$: JSR PC,LINESA :DISPLAY HEADER 

577 011466 004737 024220 JSR PC, INCSOF : INCREMENT SOFT ERROR COUNT 

578 011472 004737 024340 SR PC, INCTOT : INCREMENT TOTAL ERROR COUNT 

579 011476 012737 20 001350 MOV #B1T4 MASK :SET ERROR MASK 

580 011504 012737 000003 001352 MOV #3,RETRY :RETRY LIMIT 

581 011512 004737 016026 JSR C, SRETRY ZRETRY THE ORDER 

582 011516 000405 BR 4$ [RETRY NOT SUCESSFUL 

583 011520 004737 022572 JSR PC ,LINE6C [PRINT LINE 6C OF ERROR MESSAGE 
584 011524 004737 022654 JSR PC,LINE7 ZPRINT LINE 7 OF ERROR MESSAGE 
585 011530 0004 BR 5$ TEXIT 

586 011532 004737 022600 4$: JSR PC,LINE6D ZPRINT LINE 6D OF ERROR MESSAGE 
587 011536 004737 022654 JSR PC,.LINE7 [PRINT LINE 7 OF ERROR MESSAGE 
588 011542 004737 007040 JSR PC,REFMT sREFORMAT THE ERROR SECTOR 

289 011546 000207 5$: RTS PC [RETURN 

233 ;PROCESS HEADER COMPARE ('HCE") ERROR 

593 011550 032760 000400 002132 CKHCE: BIT #BITB,SRMER1(RO) ;HCRC SET ON ORIGINAL ERROR ? 
594 011556 001402 BEQ 1$ :BR IF NOT SET 

595 011560 000137 911156 JM. HCRCER ZREPORT HEADER CRC ERROR 

596 011564 004737 023176 1$: JSR PC ,READDR 2GET CURRENT SECTOR & TFaCK ADDRS 
597 011570 004737 015734 JSR PC .READHD ;READ HEADER OF CURRENi SECTOR 
598 011574 03273 066124 BIT #BITB,GENREG+RMER1 ;"HCRC' SET ? 

599 011602 001016 BNE 3s :BR°IF SET 

600 011604 042737 150000 076746 BIC #150000,CYLNDR :CLEAR FORMAT,MFG,USER BITS FROM HEADER 
601 011612 026037 002152 076746 CMP SRMDC(RO).CYLNDR’ ; CORRECT CYLINDER ? 

602 011620 001402 - BEQ 2$ :BR IF IT IS 

603 011622 000137 011774 JMP POSER ZREPORT POSITIONING ERROR 

604 011626 652737 150000 076746 28: BIS #150000, CYLNDR :RESTORE THE FORMAT.MFG,USER BITS 
605 011634 012432 JMP HCEER SREPORT "HCE* ERROR 

607 011640 004737 020760 3$: JSR PC, SPOTCK 7SEE IF ERROR AT BAD SPOT 

608 011644 000452 BR a$ sEXIT IF IT IS 

609 011646 004737 021112 JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
610 011652 104414 067216 DISPLY ,EM25 ZHEADER READ ERROR - ‘HCE’ SET 
611 011656 004737 021166 JSR PC,LINE2 ZPRINT LINE 2 OF ERROR MESSAGE 
612 011662 004737 021574 JSR PC.LINE3 ZPRINT LINE 3 OF ERROR MESSAGE 

613 011666 004737 022244 JSR PC.LINES “PRINT LINE 4 OF ERROR MESSAGE 
614 011672 032760 04 002126 BIT WBIT14,$RMCS2(RO) ;*WCE' ERROR ALSO ? 

615 011700 001402 BEQ 4$ :BR IF NOT 

616 011702 004737 022334 JSR PC,LINES [DISPLAY WORDS WHICH CAUSED "WwCE° 
617 011706 004737 022434 4$: JSR PCLINESA :PRINT LINE 5 OF ERROR MESSAGE 





——  —_- rrr > OO ---—--|--[- rm: => — l 





618 011712 
619 011716 
620 O11 585 
621 0117 
ose 011736 
623 011742 
624 011744 
625 011750 
626 011754 
627 011756 
628 011762 
629 011766 
630 011772 
631 
632 
33 
34 011774 
635 012000 
012004 
637 012010 
012014 
639 012022 
012026 
641 012032 
642 012036 
643 012042 
644 01 
645 
646 
647 
648 012050 
012054 
650 012056 
651 012062 
652 012066 
653 012072 
654 012076 
655 012102 
656 012106 
657 012114 
658 012122 
659 012126 
660 012130 
661 012134 
662 012140 
663 012142 
664 012146 
665 012152 
666 012156 
667 
668 
669 
670 0 


SaRee 
eiboisales 


Bers 
SISAL 


aege 
he 
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00000 

016026 
022572 
022654 


022600 
022654 
007040 


021112 


020760 


000003 
016026 
022572 
022654 


022600 
022654 
007040 


020760 


021112 
067456 
010274 
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076746 


5$: 


6$: 
REPORT 
POSER: 


;REPORT 
OPIER: 


OPIER1: 


1$: 


REPORT 
DTEER: 


z INCREMENT SOFT ERROR COUNT 


: INCREMENT TOTAL ERROR COUNT 
; RROR MASK 


; SSFUL 
sPRINT LINE 6C OF ERROR MESSAGE 
aT LINE 7 OF ERROR MESSAGE 


sEXIT 

sPRINT LINE 6D OF ERROR MESSAGE 
:PRINT LINE 7 OF ERROR MESSAGE 
sREFORMAT THE E ECTOR 
7RETURN 


sPRINT LINE 1 OF ERROR MESSAGE 
PROGRAM DETECTED POSITIONING ERROR 
NE 2 OF ERROR MESSAGE 


RROR MESSAGE 


S INCREMENT TOTAL ERROR COUNT 
[PRINT LINE 7A OF ERROR MESSAGE 
:RECAL IBRATE 


. 
e 


SEE IF ERROR AT BAD SPOT 
RETURN IF IT IS 

PRINT LINE 1 OF ERROR MESSAGE 
;*OPI* ERROR 


sPRINT LINE 2 OF ERROR MESSAGE 
zPRINT LINE 3 OF ERROR ME 
sPRINT LINE 4 OF ERROR MESSAGE 
2 INCREMENT TOTAL ERROR COUNT 


[RETRY LIMIT 
“RET 


; UL 
sPRINT LINE 6C OF ERROR MESSAGE 
ad LINE 7 OF ERROR MESSAGE 


sPRINT LINE 6D OF ERROR MESSAGE 
zPRINT LINE 7 OF ERROR MESSAGE 
REFORMAT THE ERROR SECTOR 
RETURN 


SEE IF ERROR AT BAD SPOT 
sRETURN IF IT IS 
:PRINT LINE 1 OF ERROR MESSAGE 


JSR PC, INCSOF 
JSR PC, INCTOT 
MOV #8117, MASK 
MOV #3, RETRY 
JSR PC. SRETRY 
JSR PC,LINE6C 
JSR C.LINE? 
JSR PC,.LINE6D 
JSR PC, LINE? 
JSR PC .REFMT 
RTS PC 
POSSIBLE POSITIONING ERROR 
JSR PC,LINE1 
DISPLY ,EM51 
JSR PC,LINE2 
JSR PC_LINE3C 
BIS #150000, CYL 
JSR PC,LINESA 
JSR PC. INCMIS 
JSR PC. INCTOT 
JSR PC.LINE7A 
JSR PC RECALT 
RTS PC 
‘OPI’ ERROR 
JSR PC, SPOTCK 
RTS PC 
JSR PC.LINE1 
DISPLY ,EM31 
JSR PC,LINE2 
JSR C.LINES 
JSR PC, LINES 
JSR PC. INCTOT 
MOV #81T13,MASK 
MOV #3, RETRY 
JSR PC. SRETRY 
BR 1$ 
JSR PC,LINE6C 
JSR PC-LINE7 
RTS PC 
JSR PC,LINE6D 
JSR PC. LINE? 
JSR PC REFMT 
RTS PC 
"DTE* ERROR 
JSR PC, SPOTCK 
RTS PC 
JSR PC,LINE1 
DISPLY ,EM32 
OCKER1 


:*DT OR 
zFINISH PROCESSING THE "DTE* ERROR 


SEQ 0080 
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675 
676 
677 


REPEREESS 
eeoceeeee 


ge 
ooo 
ae 
mn 
x 
RR 
: 

w 


— 


012342 
012346 
711 012352 
712 
713 
714 
715 012354 
716 012360 
717 012364 


718 012370 
719 012374 
720 400 


726 012430 
727 
728 


729 
730 012432 
731 012436 


RRPSEREE 
Bulsitoina 


rr 
NNNNNNNGNENS 


: 


2288 
ae 


000772 


022654 


021112 
067666 


021166 
024340 
022654 


021112 


022654 


021112 
067324 
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002126 


REPORT 
PARER: 


;REPORT 
WLEER: 


;REPORT 


FMTER: 


1$: 


REPORT 
HCEER: 


SEQ 0081 ! 


*PAR' ERROR 

JSR PC, " zPRINT > 1 OF ERROR MESSAGE 
ISPLY ,E REPORT 

SR pe tie te PRINT LINE OF ERROR MESSAGE 
v3R PC.LINE sPRINT LINE OF ERROR MESSAGE 
JSR PC,LINES sPRINT LINE 4 OF ERROR MESSAGE 
JSR PC, INCTOT ‘INCREMENT TOTAL ERROR COUNT 
MOV #81T03 MASK ERROR MASK 
MOV #3,RETRY RETRY LIMIT 

JSR PC, SRETRY sRETRY ORD 
BR 2s sRETRY UNSUCESSFUL 

JSR PC,LINE6C sRETRY SUCESSFUL 

JSR PC,.LINE7 zPRINT LINE 7 OF ERROR MESSAGE 
RTS PC sEXIT 

JSR PC,LINE6D :PRINT LINE 6D OF ERROR MESSAGE 
BR 1$ FINISH ERROR MESSAGE 

*IAE" ERROR 

JSR PC,LINE1 PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM35 T *IAE° 

JSR PC,LINE2 :PRINT LINE 2 OF E MESSAGE 
JSR PC,.LINE5F PRINT LINE 3F OF ER SSAGE 
JSR PC, INCTOT INCREMENT TOTAL ERROR COUNT 
JSR PC,LINE7 INT LINE 7 OF ERROR MESSAGE 
RTS PC 7 RETURN 

*WLE* ERROR 
JSR PC,LINE1 sPRINT LINE 1 OF ERROR MESSAGE 
DISPLY , REPORT ‘WLE' 
JSR PC,LINE2 sPRINT LINE 2 OF ERROR MESSAGE 
JSR PC, INCTOT faye ag TOTAL ERROR COUNT 
JSR PC,LINE7 PRINT LINE 7 OF ERROR MESSAGE 
RTS PC > RETURN 

FORMAT ERROR 
JSR PC,LINE1 zPRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM26 FORMAT ERROR 
JSR PC,.LINE2 zPRINT LINE 2 OF ERROR MESSAGE 
JSR 4% “LINES ay LINE 3 OF ERROR MESSAGE 
JSR LINE4 PRINT LINE 4 OF ERROR ME SSAGE 
BIT Witla. $RMCS2 (ROS :"WCE* ERROR ALSO ? 
BEQ 1$ F NOT 
JSR PC,LINES DISPLAY WORDS WHICH CAUSED ‘WCE’ 
JSR PC;LINESA PRINT LINE 5A OF ERROR MESSAGE 
JSR PC, INCTOT : INCREMENT TOTAL ERROR COUNT 
JSR PC,LINE? SPRINT LINE 7 OF ERROR MESSAGE 
RTS PC 
HEADER COMPARE ERROR 


JSR PC,LINE1 
DISPLY ,EM27 


PRINT LINE 1 OF ERROR MESSAGE 


HEADER COMPARE ERROR 
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leolelelelelelelelele) 
ad ad od od 


par par pa pe 
roronoenory 


745 


774 012654 
775 
776 


777 
778 012656 
779 


781 
782 
78 


787 
788 


0 
121400 
000003 
001350 
016026 
022572 


022600 
022654 


000040 
016026 


0021 


0021 
0013 


26 


26 
52 


( 
SEQ 0082 
yor PCL INE? ;PRINT LINE 3 OF ERROR MESSAGE 
JSR PC,LINE :PRINT LINE 3 OF ERROR MESSAGE 
JSR PC,LINES “PRINT LINE 4 OF E MES 
BIT #81T14,$RMCS2(ROS WCE E ALS 
BEQ 1$ :BR’ IF NOT 
JSR PC,LINES DISPLAY WORDS WHICH CAUSED "WCE" 
1$: JSR PC,.LINESA [PRINT LINE 5A OF ERROR ME 
JSR PC, INCTOT S INCREMENT TOTAL ERROR COUN 
JSR PC,LINE7 7 OF ERROR MESSAGE 
JSR PC,REFMT TREFORMAT THE ERROR SECTOR 
RTS PC : RETURN 
;PROCESS CONTROL/INTERFACE TRANSFER ERROR 
TRFER: JSR PC.LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM40 :RHT1/RH70 OR UNIBUS TRANSFER ERROR 
JSR PC.LINE2 ;PRINT LINE 2 OF E MESSAGE 
JSR PC,LINE3 :PRINT CINE 3 OF ERROR MESSAGE 
JSR PCoL INES | zPRINT LINE 4 OF ERROR MES 
JSR PC, I REMENT TOTAL ERROR COUNT 
BIT meiTi5!61115:8175/BiT8, SRMCS2(RO) ;'"DLT*,"UPE’, "MxF", "MDPE* SET ? 
BEQ ;BR IF NONE SET 
MOV #3,RETRY :RETRY LIMIT 
CLR MASK CLEAR ERROR MASK 
JSR PC, SRETRY [RETRY THE OPERATION 
BR 1 [RETURN HERE IF RETRY UNSUCESSFUL 
JSR PC,.LINE6C [PRINT LINE 6C OF ERROR MESSAGE 
BR 2$ zFINISH THE ERROR REPORT 
1$: JSR PC,LINE6D 7PRINT LINE 6D OF ERROR MESSAGE 
2$: JSR PC,LINE? zPRINT LINE 7 OF ERROR MESSAGE 
RTS PC 
;PROCESS 'SKI" OR ‘OCYL" ERRORS 
SKIER: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM50 ;"SKI" OR 'OCYL' ERROR 
JSR PC.LINE2 [PRINT LINE 2 OF ERROR MESSAGE 
JSR PC,LINE38 PRINT LINE 38 OF ERROR MESSAGE 
JSR PC, INCTOT + INCREMENT TOTAL ERROR COUNT 
JSR PC, INCSKI 7 INCREMENT 'SKI* OR ‘OCYL" ERROR COUNT 
JSR PC,LINE7A [PRINT LINE 7A OF ERROR MESSAGE 
JSR PC ,RECALT ;RECALIBRATE 
RTS PC 
;REPORT WRITE CLOCK FAILURE ("WCF") 
WChER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM34 SREPORT WRITE CLOCK FAILURE 
JSR PC.LINE2 ZPRINT LINE 2 OF ERROR MESSAGE 
JSR PC,LINE3A :PRINT L ERROR MES 
JSR C,LINE4S PRINT LINE 4 OF ERROR MESSAGE 
JSR PC, INCTOT Z INCREMENT TOTAL ERROR COUNT 
'SR PC -PRTBAD 7SEE IF BAD SECTOR TO BE PRINTED 
MOV #3, RETRY sRETRY COUNT 
MOV #81705 ,MASK ZERROR MASK 
JSR C,SRETRY [RETRY THE ORDER 
BR TRETURN HERE IF RETRY UNSUCESSFUL 
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SEQ 0083 
012734 004737 022572 JSR PC,LINE6C sPRINT LINE 6C OF ERROR MESSAGE 
004737 022654 1$: JSR PC,LINE? sPRINT LINE 7 OF ERROR MESSAGE 

791 012744 000207 RTS P 
792 012746 004737 022600 23: JSR PC,LINE6D sPRINT LINE 6D OF ERROR MESSAGE 
je, 012752 000772 BR 1$ 
a4 sPROCESS DRIVE UNSAFE ERROR 
797 012754 004737 021112 UNSAF: JSR PC,LINE1 PRINT LINE 1 OF ERROR MESSAGE 
798 012760 104414 070570 DISPLY ,EM60 ;REPORT DRIVE UNSAFE 
799 012764 004737 021166 JSR PC,LINE2 sone LINE 2 OF ERROR MESSAGE 
800 01 004737 021574 JSR PC LINES sPRINT LINE 3 OF ERROR MESSAGE 
801 012774 004737 024340 JSR PC, INCTOT ZINCREMENT TOTAL ERROR COUNT 
802 013000 012737 000003 001352 MOV #3,RETRY TRY COUNT 
803 013006 004737 016026 JSR PC, SRETRY RETRY THE ORDER 
804 013012 000403 BR 1$ RETRY WAS UNSUCESSFUL 
805 013014 004737 022572 JSR PC,LINE6C PRINT LINE 6C OF ERROR MESSAGE 
806 013020 000402 BR 2$ CONTINUE WITH ERROR REPORT 
807 013022 004737 022600 1$: JSR PC,LINE6D sPRINT LINE 6D OF ERROR MESSAGE 
808 013026 004737 022654 2s: JSR PC,LINE7 zPRINT LINE 7 OF ERROR MESSAGE 
a0 013032 000207 RTS PC ; RETURN 
rag ;REFORT AN ‘UNKNOWN’ DATA PATTERN 
813 013034 105737 001400 NOMTCh: TSTB FRSTER sFIRST ERROR IN THE SECTOR ? 
814 013040 001013 BNE 1$ ;BR_IF NOT OR IF PROCESSING ‘DCKER' 
815 013042 004737 021112 JSR PC,LINE1 : TYPE LINE 1 OF ERROR MESSAGE 
816 013046 104414 070171 DISPLY ,EM43 : "CAN'T MATCH DATA WITH PATTERN* 
817 013052 004737 021166 JSR PC,LINE2 PRINT LINE 2 OF ERROR MESSAGE 
818 013056 004737 021602 JSR PC,LINE3A sPRINT LINE 3A OF ERROR MESSAGE 
819 013062 004737 022244 JSR PC,LINE4 PRINT LINE 4 OF ERROR MESSAGE 
820 013066 000404 BR 2s CONTINUE PROCESSING ERROR 
821 013070 104414 070171 1$: DISPLY ,EM43 :*CAN'T MATCH DATA WITH PATTERN’ 
822 013074 104414 001203 DISPLY ,$CRLF 7CR-LF 
823 013100 104414 072605 2s: DISPLY ,LINYI HEADER FOR DATA PRINTOUT 
831 013104 010146 MOV R1,-(SP) sADDRESS OF WORD 1 

013106 004737 023124 JSR PC,LINOCT TYPE WORD 1 

013112 104414 073270 DISPLY ,BLNKS2 :TYPE 2 BLANKS 

013116 012146 MOV (R1)+,=(SP) ADDRESS OF WORD 1 

013120 004737 023124 JSR PC,LINOCT TYPE WORD 1 

013124 104414 001203 DISPLY ,$CRLF 7CR=L 

013130 010146 MOV R1,~(SP) sADDRESS OF WORD 2 

013132 004737 023124 JSR PC,LINOCT TYPE WORD 2 

013136 104414 073270 DISPLY ,BLNKS2 :TYPE 2 BLANKS 

013142 012146 MOV (R1)+,~(SP) sADDRESS OF WORD 2 

013144 37 023124 JSR PC ,LINOCT 2 TYPE WORD 2 

013150 104414 001203 DISPLY ,$CRLF 2 CR-LF 

013154 010146 MOV R1,-(SP) sADDRESS OF WORD 3 

013156 004737 023124 JSR PC,LINOCT : TYPE WORD 3 

013162 104414 073270 DISPLY ,BLNKS2 : TYPE 2 BLANKS 

013166 012146 MOV (R1)+,-(SP) sADDRESS OF WORD 3 

013170 004737 023124 JSR PC,LINOCT :TYPE WORD 3 

013174 104414 001203 DISPLY ,$CRLF 3CR=L 

013200 010146 MOV R1,-(SP) ADDRESS OF WORD 4 

013202 004737 023124 JSR PC,LINOCT : TYPE WORD 4 

013206 104414 073270 DISPLY ,BLNKS2 :TYPE 2 BLANKS 

01 012146 MOV (R1)+,-(SP) ADDRESS OF WORD 4 








023124 
001203 
000770 
000400 
000001 
000004 
000002 
000001 
177777 
001476 


060000 
177400 
002132 
002160 
021112 


2 
022654 


002120 
000020 


000006 
002122 
021112 
070044 
022654 


000004 


001400 
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001412 
00024 
001412 


001400 
001401 
001410 


002116 
002126 


000024 


R PC,LINOCT TYPE WORD 4 
DISPLY ,$CRLF CRLF 
D tose. ont - i eT ce BUFFER "Fon ten 
SUB #256, JUST WORD COUNT FOR MATCH 
sor ma1T06, SCODE (RO)* "HEADER OPERATION INVOLVED ? 
ADD #4 ,R1 ;ADJUST BUFFER ADDRESS 
SUB #2,CMCNT ADJUST WORD COUNT 
3$: CLR Re CLEAR *WORDS TO COMPARE’ COUNT IN R2 
MOVB #1,FRSTER SET "NOT FIRST ERROR’ INDICATOR 


MOVB #~1 ,FRSTER+1 SET ERROR FOUND INDICATOR 
MOV CMPLMT ,LIMIT sRESET THE COMPARE ERROR TYPEOUT LIMIT 
RTS PC ; RETURN 

CHECK ERROR BITS IN THE RH/RM REGISTERS 


CKERR: BIT #60000,$RMCS1(RO) ;SEE IF ‘"TRE' OR "MCPE’ SET 


BNE 1$ -BR IT EITHER SET 
BIT #177400, SRMCS2(RO) iSEE IF gE RROR BITS IN CS2 SET 
TST SRMER1 (RO) ‘ANY BITs ser IN ER1 
BNE 1$ [BR IF ANY SET 
TST SRMER2 (RO) ‘ANY BITS SET IN ER2 ? 
BEQ 2$ [BR IF NONE SET 
1$: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM44 TERROR BITS SET, BUT 'SC’ OR ‘TRE* NOT SET 
JSR PC .LINE2 ZPRINT LINE 2 OF ERROR MESSAGE 
JSR C.LINE3 ZPRINT LINE 3 OF ERROR MESSAGE 
JSR PC,LINES [PRINT LINE 4 OF ERROR MESSAGE 
JSR PC, INCTOT : INCREMENT TOTAL ERROR COUNT 
JSR PC LINE? :PRINT LINE 7 OF ERROR MESSAGE 
28: RTS PC RETURN 
zCHECK BUS ADDRESS REGISTER & WORD COUNT REGISTER 
CKBUS: TST SRMWC (RO) :CHECK WORD COUNT 
BNE [BR IF NOT ZERO 
MOV SWRDL(RO),-(SP) :WORD LENGTH 
ASL (SP) “CHANGE INTO BYTE COUNT 


ADD $BUF(RO),(SP) ADD THE STARTING LOCATION 
CMP (SP)+,$RMBA(RO) ;BUFFER ADDRESS PROPER ? 


BEQ 2 :BR IF OK 

1$: JSR PC,LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EM41 BUS ADDRESS OR WORD COUNT INCORRECT 
JSR PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
JSR PC,LINE3D zPRINT LINE 3D OF ERROR MESSAGE 
JSR PC,LINES PRINT LINE 4 OF ERROR MESSAGE 
JSR PC, INCTOT : INCREMENT TOTAL ERROR COUNT 

2$ .- Poot she? PRINT LINE 7 OF ERROR MESSAGE 


COMPARE THE BUFFER 
CMPAR: BITB #B1T02,$CODE(RO) ;SEE IF READ ORDER 
BNE 1$ BR IF IT IS 


RTS PC RETURN 
1$: CLR FRSTER SCLEAR ‘FIRST ERROR’ INDICATOR 





& 
N 
Oo 


Ww 
RS 
Mo 


CLT ER EEe SRP RP RRR 
SS 


fwnr-o 


9 
9 
9 
9 
9 


942 014014 
943 014016 


— 
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032777 
00 


140000 


8 gggsge 
™~ =85 


013724 
000002 


001406 
014310 


014632 
013034 


000020 


001406 


000010 
014310 
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165444 (CMPARD: BIT 
BEQ 


1$: 


001376 CMSTR: 


CMSTR2: 


CMDAT: 


000022 
1$: 
001412 
000005 2$: 
1$: 
4$: 
1$: 
2$: 
165154 
3$: 


#SWO1,aSWR s1S SWITCH 1 SET? 
1$ ‘BR IF NOT 
SYES, DON'T COMP, 
CTR CLEAR THE ERROR COUNTER 
$BUF (RO) ,R1 ;BUFFER ESS 
SWRDL (ROS , CMCNT D COUNT TO WORKING LOCATION 
C (RO), CMCNT COAL CULATE ACTUAL WORDS TRANSFERED 
SCYL (RO), CMCYL ; CYLINDER ADDRESS WORKING LOCATION 
#BIT12,CMCYL | :SET FORMAT BIT 
#140000,CMCYL :SET MFG AND USER BITS 
$SEC(RO),CMSEC SECTOR & TRACK ADDRESSES TO WORKING LOCNS 
CMPLMT,LIMIT | :DISPLAY LIMIT 
:CONVERT PARAMETER INTO LIMIT VALUE 
#~1, ZROIND ; CLEAR THE 'ZERO'S' INDICATOR 
SAVER 'CLEAR THE R1 SAVE WORD 
SAVERS [CLEAR THE RS SAVE WORD 
CACNT.SSSEC(RO) :1S BUFFER SIZE GREATER THAN ONE SECTOR ? 
CMCNT,R2 ‘LESS THAN, USE REMAINING BUFFER 
CMCNT :SET COUNTER TO 0 
SSSEC(RO),R2 | : COMPARE SECTOR 


aries ees Ya ; DECREMENT WORD COUNT 


SCODE(R 
C 


MDAT “BR 
#B1T15'!BI1T14, (R1) 


CMCYL, (R1)+ 
Ms 


C,CMSTR2 
enSEC, 2(R1)+ 


PC, CMSTR2 


C4 


on 

PC ,NOMTCH 
7$ 

(R4) ,R5 
#20,R3 
ont. (R5)+ 


on iF —_— & DATA? 
SET BIT14,B1T15 IN CASE BAD SPOT ENCOUNTER 
K CYLINDER 


:BR IF COMPARE OK 
REPORT ERROR 

;COMPARE SECTOR & TRACK 
BR IF EQ 

REPORT ERROR 
; SUBTRACT HEADER LENGTH FROM SIZE 
7BR IF FINISHED 
COMPARE THE DATA PORTION 
: INCREMENT THE ERROR COUNT 
;REPORT THE COMPARISON ERROR 
CHECK THE REST OF THE HEADER 


FIND THE PATTERN 

:FOUND A PATTERN 

;RETURN HERE IF NO MATCH WITH PATTERN MADE 
BYPASS COMPARE ROUTINE 

wry. OF PATTERN ADDRESS IN R4 

;R3 IS PATTERN POS COUNTER 

COMPARE BUFFER WITH PATTERN 


BR IF NOT EQUAL 
; ERRORS pss ? 


:DISPI THE WORD 
:DECRERENT. SIZE COUNT 
BR WHEN AT END 
SDECREMENT oad POS COUNT 


;BR IF NOT AT END OF PATT 
:RESTART THE PATTERN 





Es 


99% 
995 014302 
996 014306 


999 
1000 014310 


005761 
0 
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177776 
177777 
001406 
014310 


001376 
014310 
001412 
000024 
001412 
000004 


000400 


140000 
001414 


013724 
001416 


013724 
000002 
014564 


001402 
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001376 


001412 


000040 


001450 


151466 


001412 


4$: 


5$: 


6$: 


7$: 


8$: 


9$: 


11$: 


12$: 


13$: 


CMPRX: 


-2(R1) 
#-1,ZROIND 
ERCTR 

PC, CMPRT 
FRSTER 

6$ 

ZROIND 
R1,SAVER1 
R5,SAVERS 
3$ 

ZROIND 
PC,CMPRT 
3$ 
CMCNT , #4 
CMPRX 
SCODE (RO) ,#5 
9$ 

CMCNT ,R2 
R244 


CMPRX 

#256. ,CMCNT 
CMDAT 

#256. ,R2 
CMDAT 

CMSEC 

vy C,A#32. 
11$ 

CMSEC 


CMTRK 
PC,GETLMT 
CMTRK. 2 TRKLMT 


CMTRK 


CMCYL 
CMCYL ,#150000+822, 
iS NO 


CMPR : NORMAL 
#B1115!BIT14, “(Rt 


CMCYL, (R1)+ 
12$ 


PC,CMSTR2 
CMSEC, (R1)+ 
13$ 


PC, CMSTR2 
#2,CMCNT 
CMPRX 


PC,ENDCMP 
PC 


: TYPE DATA COMPARE ERRORS 
SAVER1 


CMPRT: 


TST 


:IS i tat CHARACTER=0 
;BR YES 


SET 1 NONATERO MISCOMPARED INDCATOR 
; INCREMENT THE ERROR COUNTER 
=REPORT ERROR 


: CONTINUE COMPARE 
ZFIRST — 


:BR 
2 SET THE ZERO id eee 


OMPARE 
TANY MISCOMPARIONS NOT ZEROS ? 
BR IF ye ERRORS=ZERO 
REPORT ERR 
; CONT INUE COMPARING 
:LAST 3WORDS ? 


E 
READ HEAD AND DATA ? 
+ SET COUNTER = REMAIN BUFFER LENGTH 
T 3 WORDS ? 


3 YES,EXIT 

;GREATER THAN A SECTOR ? 
7NO,RETURN TO COMPARE LOOP 
>SET COUNTER =SECTOR SIZE 
;RETURN TO COMPARE LOOP 

: INCREMENT COUNTER 

;MAX SECTOR # ? 


sRESET SECTOR # 
z INCREMENT TRACK # 
:GET ADDRESS LIMITS 
MAX TRACK # ? 


[NO 
RESET TRACK # 

; INCREMENT CYLINDER NUMBER 

zLAST CYLINDER ? 

RETURN,NOT WRAP AROUND 

;SET BIT15/14 INCASE BAD SPOT ENCOUNTER 
ARE” 1ST HEADER WORD 
;NOT MATCH 
SECOND WORD OF HEADER 
MATCH 


NOT MATCH 
sADJUST WORD COUNT 
; COMPAR 


E IS DONE 
RETURN TO COMPARE LOOP 
PRINT LAST LINE IF ERRORS 


PRINT SAVED VALUES ? 


SEQ 0086 





a a eB ee ee ae ae eed ed eed ed 
oo0°0o 


OooCCoCoOoO oO 


20 014414 
1021 014420 
1022 014424 
1023 014430 


10 

1033 014474 
1034 014500 
1035 014502 


1 4514 
1039 014516 
040 014522 
1041 014526 
1042 014532 
1043 014536 
1044 014542 
1045 014546 
1046 014552 
1047 014556 
1048 014562 
1049 

1050 

1051 

1052 014564 
1053 014570 
1054 014572 


001400 


014404 
014466 


195999 
001410 
001410 
000200 


001400 


164444 


1$: JSR 
BR 
2$: 


3$: RTS 


4$: TSTB 
BMI 


6$: DISPLY 
V 


8$: TST 


10$: MOV 


JSR 
DISPLY 
RTS 
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2$ 
FRSTER 
1$ 
PC,4$ 
PC ,8$ 
3$ 


R1,-(SP) 


5$ 
PC,LINE1 
-EM42 
PC,LINE2 
PC,LINE3A 
PC{LINE4 
6$ 


-LINIB 
-SCRLF 


-LIN9H 
#-1,FRSTER 
PC 

LIMIT 

9$ 

LIMIT 

10$ 

#SWO7 ,ASWR 
10$ 

PC 

R1,~(SP) 

#2, (SP) 
PC,LINOCT 
-BLNKS2 
~2(R5) ,~(SP) 
PC,LINOCT 
-BLNKS2 
-2(R1) ,~(SP) 
PC,LINOCT 
SCRLF 


Ld 


:BR_IF NOT 
eas HY a" 


‘PRINT INITIAL MESSAGE INFO 
PRINT REMAINDER OF MESSAGE 


33PUSH R1 ON STACK 
:;PUSH R5 ON STACK 


D RS 
SPRINT INITIAL MESSAGE INFO 
SPRINT SAVED VALUES 
CLEAR SAVED REGISTER INDICATORS 
>CLEAR THE OTHER ONE 


INTO R1 
ZPRINT REMAINDER OF MESSAGE 
ZFIRST ERROR ? 


7BR IF NOT 

BR _IF FIRST ERROR AND PROCESSING 'DCK' ERROR 
PRINT LINE 1 OF ERROR MESSAGE 

:DATA COMPARE ERROR 

zPRINT LINE 2 OF ERROR MESSAGE 

sPRINT LINE 3A OF ERROR MESSAGE 

O10 LINE 4 OF ERROR MESSAGE 


YPE HEADER 
HEADER MESSAGE OF PROCESSING ‘DCK' ERROR 
OT SPLAY HEADER 

:SET ERROR FLAG 


RETURN 
+ TYPEOUT LIMIT REACHED ? 
IF IT HAS 
“DECREMENT LIMIT COUNTER 
3BR IF NOT AT LIMIT 
PRINT ALL DATA COMPARE ERRORS ? 
:BR IF YES 
RETURN 
7BUFFER ADDRESS 
ADJUST ADDRESS 


:TYPE IT 
TYPE 2 BLANKS 
;PUT ae t DATA ON THE STACK 


: TYPE 
TYPE d BLANKS 
BAD DATA 


sLAST LINE OF COMPARE ERROR REPORTING 
Sa at ERRORS FOUND ? 
SEE HOW MANY ERRORS 


ENDCMP: TSTB 
BEQ 
TST 


FRSTER+1 
2s 
ERCTR 


SEQ 9087 
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1055 014576 
1 4600 


1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 


1072 014632 
10 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


104414 072625 
00 


093654 


010146 
012 000044 
000002 


002502 
000004 


8 
g 
3 


14666 


= 
o 
—_ 
sy 
oS 
par 


14710 


4 
14730 
4734 


_ 
N 


SSLRIZESSSSRESSZES 
S 
5 


= 


SRSLRGRALSLE 
felolelol~lol~lmlol=l~lololn) 
— ed ed 
™~ ~ 
= 


eed ee etd a ed eh ed ed ed ee eed ed 
por fw Pw 

wi 

So 

—_ 

oa 


a 
-o 
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BEQ 1$ 
DISPLY ,LINGE 
V ERCTR,=(SP) 
JSR PC,LINDEC 
DISPLY , 
1$: JSR PC, INCTOT 
JSR PC,LINE? 
2$: RTS PC 


;TYPE IT 
3CR=L 


#BR IF ONLY CAN'T MATCH PATTERN 
; "NUMBER OF ERRORS= 
NUMBER OF ERRORS 


‘INCREMENT TOTAL ERROR COUNT 
PRINT LI NE 7 OF ERROR MESSAGE 


ae TO MATCH THE DATA WITH A PATTERN 


; MOV ABUFFER,R1 

; JSR PC MATCH 

: RETURN1 

; RE TURN2 

MATCH: MOV R1,-(SP) 
MOV 4,R4 

1$: MOV (SP) ,R1 
SUB 2.R4 
BEQ $ 
MOV STNDAT(R4) ,R5 
MOV #4.R 

2s: CMP (R1)+, (R5)+ 
BNE 1$ 
DEC R3 
BNE 2$ 
ADD ASTNDAT,R4G 
BR 4$ 

000002 3S: ADD #2,2(SP) 

4$: MOV (SP)+,R1 

RTS PC 


;BUFFER ADDRESS 


PATTERN ADDRESS IN R4 
: COULDN'T MATCH PATTERN 


:SAVE_R1 ON THE STACK 
;PATTERN PD ee INDEX 


sRELOAD R 
ee oe INDEX 
7BR IF PATTERN NOT MATCH 


ADDRESS OF PATTERN ADDRESS 

NUMBER OF LOCA Sy TO CHECK 

+ COMPARE THE BUFFER AGAINSi THE PATTERN 
IF NOT EQUAL TRY NEXT PATTERN 


INISHED 
MAKE PATTERN ADDRESS ABSOLUTE 


x 
INCREMENT RETURN ADDRESS 
RESTORE R1 


:USE ECC TO CORRECT THE DATA ERROR 


001422 ECC: MOV SRMBA (RO) ,ECSEC 
MOV SRMWC (RO) ,-(SP) 
ADD _— (RO), (SP) 
MOV SSSEC (RO) ,-(SP 
PC,LINKDV 
(S 
BEQ 1$ 
(SP) 
SUB (SP) ,ECSEC 


000005 ag SCODE (RO) .#5 
001422 — oe -ECseC 
001422 1$ SUB Ae +S ECSEC 

2$ ADD : 
001420 MOV SRMECT (RO) -ECBIT 

DEC ECBIT 

001430 MOV ECBIT,ECWRD 
001420 BIC #*C17,ECBIT 
001430 BIC #17, ECWRD 


sADDRESS OF LAST LOCN XFERED 
~ WORDS XFERED (2°S COMP) 


D WORDS REQUESTED 
CLEAR NEXT STACK LOCN 
SECTOR SIZE 

DIVIDE WORDS XFERED BY 9 SECTOR SIZE 
‘ERIE hones XFERED ? 


CONVERT INTO NUMBER OF BYTES 
;SUBTRACT SECTOR RESIDUE 
WAS OP READ HEAD & DATA 
BR IF NOT 
ADD HEADER SIZE (IN BYTES) BACK IN 
GO ADJUST THE STACK POINTER 
;SUBTRACT SECTOR DATA FIELD SIZE (IN BYTES) 
ADJUST THE STACK POINTER 
‘sce shh ION COUNT 
T THE POSITION COUNT 
D THE WORD COUNT LOCATION 
‘SAVE THE BIT OFFSET COUNT 
CLEAR THE BIT OFFSET 


SEQ 0088 


CZRMUAO RMO5S/3/2 PERF EXER 
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— 
— 


RGSS SBLEGRUNLSVSVRGRUVLSSaVaaRww 
ds 
wMvivi 
SSk 
FSR 


RONSES 


jolololeleloleleloleolelelolelolo) 
dt 
ao 


VMI MIMI 


NINSKSREHMRBASS 


5 


ee er ee Pe Pe ee er er et 
MMMM a 


Sooooooooocoo 


vs 
So 
= = 
Ww 
Nm 
rs 


NN —OOOnN 
So 
= 
w 
N 
& 





4 
013746 


001430 
001430 


001424 


3$: 


4$: 


5$: 


ECC1: 





ECSEC ,ECWRD 
es 


RO) ,ECWRD 


cc2 
SIOEC2 (ROD, zoned” 


f Bit r 
4$ 


ECC1 
ECWRD ,ECWRD1 


#2,ECWRD1 a | 
SAMBA (RO) ECWRDT 


ECWRD1 


ECC1 
@ECWRD1, sa" 


-BLNK 
ECBAD1 ,~(SP) 


3PU 
CONVERT TO WORD COUNT FOR MESSAGE 
: CONVER ir WORD COUNT 


PRINT I 
3" IN DATA FIELD OF ERROR SECTOR’ 
:FIND THE BEGINNING OF THE ERROR BURST 
SEE _IF SURST WAS IN DATA READ 
;BR_IF IN DATA READ 
NOT IN DATA READ = REPORT IT 
GET THE ERROR ay 
EAR T K WORD 


UPPER MAS 
ae OFFSET EQUAL PERO 


IF IT IS 
sDECREMENT THE BIT OFFSET COUNT 
SHIFT THE ERROR MASK 

SHIFT THE LOWER pve THE UPPER 
;CONTINUE THE SHIFT 

:SAVE_THE INCORRECT WORD 

CLEAR SECOND INCORRECT WORD ADDRESS 
PUT LOWER MASK ON STACK 

CLEAR ERRONEOUS ONE BITS FROM MASK 
3CL ~~ ren biten™ BITS FROM BAD WORD 


DROPPED BI 
DOES BURST GO INTO NEXT WORD ? 
IN ONE WORD 


NCREMEN ADDRESS 

i*t, _— WORD IN THE BUFFER 
WORD ADDRESS 

CORR 


CK 
AR ERRONEOUS ONE BITS FROM UPPER MASK 
CLEAR ERRONEOUS A BITS FROM DATA WORD 
3SET DROPPED BITS 


ADER 
:PUT ECWRD ON THE STACK 
YPE ECWRD 


:TYPE 2 BLANKS 

:PUT ECBADO ON THE STACK 
: TYPE ECBADO 

:TYPE 2 BLANKS 

PUT @ECWRD ON THE STACK 
zTYPE @ECWRD 

:TYPE 2 BLANKS 

PRINT hia NEXT WORD ? 


2 CRLF 

;PUT — ™ THE STACK 
: TYPE ECWR 

TYPE 


2 BLANK Ss 
[PUT ECBAD1 ON THE STACK 


CZRMUAO RMO5/3/2 PERF EXER 
MAIN PROGRAM 


aabadad 
MMW 
SESE 


VSS 


015410 
015414 
seis 
015450 
1166 015434 
1167 015436 
1168 015442 
1169 015446 
1170 
1171 
1172 
1173 015450 
1174 015456 
1175 015460 
1176 015464 
1177 015470 
1178 015474 
1179 015476 
1180 015502 
1181 015506 
1182 015510 
1183 015512 
1184 015514 
1185 015516 
1186 015520 
1187 015524 
1188 015532 
1189 
1190 
1191 
1192 
1193 
1194 
195 
196 
197 
198 
199 


Sat SS So 
Vn 
S 
oa 


1 

1 

1 

1200 015602 
1201 015604 
1202 015606 
1203 015612 
1204 015614 
1205 015620 
1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 015622 
1214 015626 
1215 015634 
1216 015640 
1217 015642 


023124 


073270 


073001 
001203 


000010 
002122 
000020 
002120 


000022 
030610 


001000 
000024 


000004 
000004 
073173 
000007 
023124 
002122 
073270 
023124 


001203 
001203 
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163476 


000005 


066072 


JSR PC,LINOCT : TYPE ECBAD1 
DISPLY ,BLNK zTYPE 2 BLANKS 
MOV @ECWRD1,-(SP) ;PUT @ECWRD1 ON THE STACK 
JSR PC,LINOCT A: @E CWRD1 
DISPLY ,BLNKS2 E 2 BLANKS 
BR ECCX Exit 
ECC2: DISPLY ,LINiOC ERROR BURST WAS NOT TRANSFERED TO MEMORY 
ECCX: DISPLY ,$CRLF 7 CRLF 
RTS PC RETURN 
sROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 
PRTBAD: BIT #SW3,@SWR ote | THE BAD SECTOR ? 
BEQ 6$ BR IF NOT 
MOV SRMBA (RO) ,R1 :PUT THE END ADDRESS INTO R1 
MOV SWRDL(RO),-(SP) :FIND THE BEGINNING OF THE SECTOR 
ADD SRMWC(RO),(SP) ;SUBTRACT THE WORDS NOT TRANSFERED 
CLR ~(SP) MAKE THE UPPER DIVIDEND 0 
MOV SSSEC(RO),-(SP) ;DIVDE THE WORDS TRANSFERED BY THE SECTOR SIZE 
JSR PC,LINKDV :DIVIDE 
TST REMANDER = 
BEQ 1$ 'BR IF IT IS - * COMPLETE SECTOR TRANSFERED 
ASL (SP) CONVERT THE RESIDUAL SECTOR SIZE INTO BYTE COUNT 
SUB (SP) ,R1 3 SUBTRACT ‘. Ay THE END ADDRESS 
BR 2s FINISH THE SIZING 
1$ SUB #1000.R1 ; SUBTRACT FULL SECTOR SIZE FROM END ADDR 
CMPB SCODE (RO) ,#5 WAS OPERATION READ HEADER & DATA ? 
BNE 2$ :BR_IF NOT 
SUB #4,R1 ; SUBTRACK_HEADER SIZE FROM ADDR 
2s: ADD #4,SP RESTORE THE STACK POINTER 
DISPLY ,LIN1I1H PRINT THE HEADER 
3$: MOV #7.R R2_ CONTAINS THE WORDS/LINE COUNT 
MOV R1,~-(SP) PUT THE ADDRESS ON THE STACK 
JSR PC,LINOCT : TYPE THE ADDRESS 
4$: CMP R1,$RMBA(RO) :PRINTED ALL THE SECTOR ? 
BEQ $ BR IF ALL PRINTED 
DISPLY ,BLNKS2 iT YPE 2 BLANKS 
MOV (R1)+,-(SP) :PUT THE at 1. TRE STACK 
JSR PC,LINOCT 2 TYPE THE DAT. 
DEC R2 ;DECREMENT THE HORIZONTAL COUNT 
BNE 4$ 3BR IF NOT AT THE END OF THE LINE 
DISPLY ,$CRLF 7 CR-LF 
sRESTORE THE WORDS/LINE COUNT 
5$: DISPLY ,$CRLF PRINT WHAT REMAINS IN THE BUFFER 
6$: RTS PC sRETURN 
ee TO DO AN RTC = DRIVE SELECTED IN RO 
: MOV #DPB,RO DPB ADDRESS 
: JSR PC,.RTNCTR 
: RETURN 
RTNCTR: MOVB (RO) , GENDPB ;MOVE THE DRIVE # TO THE GENERAL DPB 
MOVB #RTC,GENDPB+$COMND OMMAND CODE 
1$: JSR RO,RMOS :DRIVER ath gs E 
GENDPB DPB ADDR 


ESS FOR ORDER 
1$ :DRIVER DIDN'T ACCEPT ORDER 





SEQ 0090 


P N 7 
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SEQ 0091 


, 1s'8 015644 000207 RTS PC ;RETURN 

1630 bm TO DO A RECALIBRATE = DRIVE SELECTED IN RO 

1222 : MOV #DPB,RO DPB ADDRESS 

1223 : JSR PC,RECALT 

1224 : RETURN 

1225 :OR 

1226 ; MOV #DPB,RO :DPB ADDRESS 

1227 ; MOVB MDRIVE,GENDPB ;DRIVE ADDRESS 

1228 ; JSR PC ,RECALTO 

156? : RETURN 

1231 015646 111037 066070 RECALT: MOVB (RO) , GENDPB sMOVE THE DRIVE # TO THE GENERAL DPB 
1232 015652 112737 000107 066072 RECALO: MOVB #RECAL, GENDPB+$COMND sRELCALIBRATE COMMAND 
1233 015660 005060 002124 CLR $RMDA(RO) ;FAKE OUT REGISTERS FOR RECAL 
1234 015664 005060 002152 CLR SRMDC (RO) 

1235 015670 004037 036550 1$: JSR RO,RMOS DRIVER peg 3 

1236 015674 0660790 GENDPB :DPB ADDRESS FOR ORDER 

1237 015676 000774 BR 1$ DRIVER jie T ACCEPT THE ORDER 
1238 015700 005737 066106 2$: TST GENDPB+$TATUS SEE IF FINISHED 

1239 015704 001775 BEQ 2s 3BR_IF NOT FINISHED 

1 ae 015706 000207 RTS PC RETURN 

134@ + hat THE DRIVE IN RO (OFFSET CODE PRELOADED INTO ‘RMOF') 
1244 : MOVB #OFFSET,GENDPB+SFMT ;OFFSET CODE 

1245 : MOV #DPB,RO :DPB ADDRESS 

1246 : JSR PC,OFFST 

1Sen : RETURN 

1249 015710 111037 066070 OFFST: MOVB (RO) , GENDPB DRIVE # TO GENERAL DPB 
1250 015714 112737 000115 066072 MOVB #OF FSET .GENDPB+SCOMND _; COMMAND 

1251 015722 004037 036550 1$: JSR RO,RMOS [DRIVER ENTRANCE 

1252 015726 066070 GENDPB :DPB ADDRESS FOR ORDER 

1253 015730 000774 BR 1$ ;DRIVER DIDN'T ACCEPT ORDER 
‘$28 015732 000207 RTS PC 

1e06——ti sUTILITY READ HEADER ROUTINE 

1257 :CAL L: 

1258 : MOV #DPB,RO :DPB_ADDRESS 

1259 ; MOV WSECTOR,-(SP) SECTOR ADDRESS 

1260 ; MOV MTRACK ,~(SP) : TRACK ADDRESS 

1261 ; MOV #CYLINDER,-(SP) :CYLINDER ADDRESS 

1262 : JSR PC ,READDR 

ise? : RETURN 

yo 015734 116637 000004 066101 READHD: MOVB 4(SP) ,GENDPB+$TRK ;TRACK ADDRESS 

1266 015742 116637 000006 066100 MOVB 6(SP) ;GENDPB+$SEC :SECTOR ADDRESS 

1267 015750 016637 000002 066102 MOV 2(SP) ,GENDPB+$CYL CYLINDER ADDRESS 
1268 015756 111037 066070 MOVB (RO) , GENDPB ;DRIVE NUMBER 

1269 015762 112737 000173 066072 MOVB #RDHD ,GENDPB+S$COMND ; COMMAND 

1270 015770 012737 177776 066074 MOV #~2, GENDPB+$WRDM zWORD CTR = 2 

1 015776 004037 036550 1$: JSR RO,RMOS DRIVER ENTRANC E 

1272 016002 066070 GENDPB DPB ADDRESS FOR ORDER 

1273 016004 000774 BR 1$ DRIVER DIDN'T ACCEPT COMMAND 
1274 016006 005737 066106 2$: TST GENDPB+$TATUS 3 F INI SHED? 
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1275 016012 
1$?6 016014 
*277 016020 
1278 016024 
1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 016026 
1290 016032 
1291 016036 
1292 016040 
1293 016042 
1294 016046 
1295 016052 
1296 016054 
1297 016062 
1298 016064 
1299 016070 
1300 016072 
1301 016076 
1302 016100 
1303 016102 
1304 016110 
1305 016112 
1306 016116 
1307 016124 
1308 016126 
1309 016130 
1310 016134 
1311 016140 
1312 016142 
1313 016144 
1314 016150 
1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 016154 
1323 016162 
1324 016164 
1325 016172 
1326 016200 
1327 016202 
1328 016206 
1329 016214 
1330 016220 
1331 016226 





001775 


011666 
062706 
000207 


000006 
000006 


017024 
000016 


Su 
000200 
001350 
002132 


001350 
001353 
001352 


023112 
022654 


072455 
007266 
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000016 


002132 


001353 


000016 
016310 
016310 
000046 
000024 


BEQ 2$ :BR IF NOT 
MOV (SP) ,6(SP) ZADJUST STACK FOR RETURN 
ADD #6,SP sADJUST RETRUN POINTER 
RTS PC RETURN 
sRETRY THE PRESENT OPERATION 
; MOV #COUNT,RETRY = ;RETRY COUNT 
: JSR PC, $RETRY 
: RETURN1 ;RETRY UNSUCESSFUL 
: RETURN2 s SUCESSFUL RETRY 
3 [NOTE: IF A DIFFERENT ERROR OCCURS DURING 
: ZRETRY, THE ROUTINE EXITS TO ‘ERPRC1" 
SRETRY: JSR PC,GODRIV :RE=START ORDER 
1$: TST STATUS (RO) SORDER FINISHED? 
BEQ 1$ ‘BR IF NOT 
BMI 2$ [BR IF ERROR 
INCB—RETRY#1 + INCREMENT RETRY COUNT 
ADD #2, (SP) s INCREMENT RETURN 
BR :GO TO EXIT 
2s: BIT WBIT7,$TATUS(RO) ;DID ORDER TERMINATE NORMALLY ? 
BEQ 7$ :BR IF NOT 
TST MASK 31S ERROR MASK 0 ? 
BNE 3$ F NOT 
TST SRMER1 (RO) ZMAKE SURE THAT THE DRIVE ERROR REG IS CLEAR 
BNE 6% [BR IF NOT 
BR 4$ S CONTINUE RETRY 
3$: BIT MASK,$RMER1(RO) :SAME ERROR? 
BEQ 6$ :BR IF 
4$: INCB —— RETRY+1 # INCREMENT RETRY COUNT 
CMPB —s- RETRY ,RETRY+1 
BNE SRETRY “BR IF oT DONE 
5$: RTS PC RETURN 
6$: JSR PC,LINES [REPORT DIFFERENT ERROR 
JSR PC,LINE7 =PR 
TST (SP) + TADJUST STACK POINTER FOR DIRECT RETURN 
RTS PC RETURN 
7$: DISPLY ,LIN8M : "DIFFERENT ERROR DURING RETRY’ 
JMP ERPRC1 ZREPORT THE ERROR 
: ROUT INE TO UPDATE THE PERFORMANCE SUMMARY STATISTICS 
: MOV #DPB,RO :DPB ADDRESS 
: JSR PC, STATIS 
: RETURN 
STATIS: BIT #B1T07!B1T06, STATUS(RO) 3 CHE CK FOR DATA TERMINATION 
BEQ 3$ T DATA TERMINATION 
MOV SRMBA(RO) FACTOR’ R ORE THE FINAL BUFFER ADDRESS 
SUB $BUF (RO) ,FACTOR ; SUBTRACT THE INITIAL ADDRESS 
BEQ 2s IF NO DATA TRANSFER 
ASR FACTOR CONVERT TO A WORD COUNT 
ADD FACTOR, aauaeel : UPDAT D COUNT 
ADC $TRANS+2(RO) — :ADD ANY CARRY 
BITB sSEE IF ORDER READ OR WRITE 


#81T01,$CODE(RO)’ 
2$ 


;BRANCH IF ORDER WRITE 


SEQ 0092 
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3 916230 126037 000024 000001 cre SCODE (RO) 1 ;PRESENT OPERATION AN AUTOMATIC WRITE CHECK ? 
1334 016240 000020 000046 ADD SWRDL (RO), STRANS(RO) zADD WORDS WRITTEN 

1335 016246 005560 000050 ADC STRANS+2 (RO D 

1336 016252 063760 016310 000952 1S: ADD FACTOR,$READ(RO) ; UPDATE THE READ WORD COUNT 
1337 016260 005560 000054 ADC SREAD+2 (RO) ANY C 

1338 016264 0 000012 002152 2s: CMP SCYL (RO) -SRMDC (RO) DID MID=TRANSFER SEEK OCCUR 
1339 016272 001405 BEQ 3$ F NOT 

1340 016274 062760 000001 000042 ADD #1,$POSIT(RO) INCREMENT SEEK COUNT 

1341 016302 005560 000044 ADC $POSIT+#2(RO) | ADD CARRY TO UPPER WORD 

134e 016306 000207 3$: RTS PC 

ive 016310 0009000 FACTOR: .WORD 0 ;USED FOR WORDS TRANSFERED 

1346 ;ROUTINE TO GET A BUFFER 

1347 CALL: 

1348 : MOV #DPB,RO :DPB ADDRESS 

1349 $ CLR -(SP) ;CLEAR THE STACK 

1350 s SR PC, GE TBUF 

1351 ; RETURN ;BUFFER ADDRESS WILL is ON THE STA 
1338 : sSTACK WILL BE ZERO IF NO BUFFER AVAILABLE 
1354 016312 010146 GETBUF: MOV R1,-(SP) 4 ne} R1 

1355 016314 010246 MOV R2.-(SP) TSAVE R2 

1356 016316 010346 MOV R3,-(SP) Save R3 

1357 016320 013702 001704 MOV TBL ,R2 [NUMBER OF SEPARATE BUFFERS 
1358 016324 001444 BEQ 7BR IF NONE AVAILABLE 

1359 016326 012701 0017 MOV ABUFTBL+2,R1 FIRST ADDRESS OF ALLOCATION TABLE 
1360 016332 026061 000020 000002 1S: CMP SWRDL(RO).2(R1) :SEE IF THERE IS A BLOCK LARGE ENOUGH 
1361 016340 101405 BLOS 3$ [BRANCH IF IT IS 

1362 016342 005302 DEC R2 : DECREMENT TABLE COUNT 

1363 016344 001434 BEQ 6$ [BR IF THROUGH TABLE 

1364 016346 062701 000004 ADD #4,R1 UNCREMENT TABLE POINTER 

1365 016352 00076 BR 1$ [CONTINUE LOOKING 

1366 016354 011166 000010 3$: MOV (R1),10(SP) [BUFFER ADDRESS TO STACK 

1367 016360 166061 000020 000002 SUB SWRDL(RO),2(R1) :AOJUST BUFFER SIZE 

1368 016366 001407 BEQ 4$ tk IF DIFFERENCE IS ZERO 

1369 016370 006360 000020 ASL SWRDL (RO) [CONVERT # WORDS TO BYTES 

1370 016374 066011 000020 ADD SWRDL(RO),(R1) MAKE NEW STARTING ADDRESS 

1371 016400 006260 000020 ASR SWRDL (RO) ;RETURN # BYTES TO WORDS 

1372 016404 000414 BR 6$ * RETURN 

1373 016406 005337 001704 4$: DEC BUF TBL ZDECREMENT ENTRIES COUNT 

1374 016412 001411 BEQ 6$ [BR IF ALLOCATION TABLE EMPTY 
1375 016414 005302 DEC R2 : DECREMENT TABLE COUNT 

1376 016416 00140 BEQ 6$ BR IF ITEM WERE LAST ENTRY 

1377 016420 010103 MOV R1,R3 MOVE TABLE POINTER 

1378 016422 703 000004 ADD #4-R3 “POINT TO NEXT ENTRY 

1379 016426 012321 5$: MOV (R3)+,(R1)+ :MOVE ITEMS 

1380 016430 012321 MOV (R3)+,(R1)+ 

1381 016432 005302 DEC R2 :DECREMENT TABLE COUNT 

1382 016434 001374 BNE “CONTINUE IF NOT AT END OF TABLE 
1383 016436 012603 6$: MOV (SP) +,R3 SRESTORE R3 

1384 016440 012602 MOV (SP) +-R2 *RESTORE R2 

1385 016442 012601 MOV (SP) +; "RI RESTORE R1 

1386 016444 207 RTS PC RETURN 

1387 

1388 
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1389 


RANLS 


FLEES SW 
LSBSLEA 


8S 
ooo 
ad aad cd eed 
AAA 
wv 
ad cad and 
DRE 


ed ed ced ed aed ad od ed od 
jololelolelolelelelo) 
2235555555 

ADRAARAAACOAO 


SEERERRERRRRALAERA Roane 
So 
o 
= 
Oo 
ras 
~ 


SEEK RKRRRRRREREES 


N 
_ 
oS 
= 
Ww 
3 


010146 
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000002 


000002 


= TO PUT BUFFER BACK IN TABLE 


RELBUF : 


1$: 


8$: 





#DPB,RO 
PC ,RELBUF 


R1,~(SP) 


$ 
SWRDL (RO) RS 


R 
SBUF (RO) ,R3 
(R1),R3 


4$ 
#4 ,R1 
R2 


1$ 

$BUF(RO),(R1) 
SWRDL (RO) ,2(R1) 
BUF TBL 


Re 
5 


#BUF TBL +2 ,R5 


2(R5) ,R4 
R4 


(SP)+,R2 
2(R1) ,2(R5) 
BUF TBL 


R1,R5 


#4-R5 
(R5)+, (R1)+ 
(R5)+.(R1)+ 
R2 


9$ 

(SP)+,R5 
(SP)+,R4 
(SP)+,R2 


$ 
SBUF (RO) , (R1)+ 
SWRDL (RO) , (R1)+ 
BUF TBL 


SBUF (RO) , (R1) 
ae, os -2(R1) ; 


sRESTORE 
SRESTORE R4 


DPB ADDRESS 


ENTRY COUNT 


TE COUNT 
TADDRESS OF aT a ADJACENT BLOCK 
; UPPER “A ee BLOCK 


BR IF Y 
: INCREMENT POINTER 
;DECREMENT ENTRY COUNT 
id a SEARCHING 
THE BUFFER BLOCK INTO THE TABLE 


BLOCK SIZ 
J INCREMENT ENTRY COUNT 
: INCREMENT R2 FOR USE LATER 
SEE IF A LOWER ADJACENT BLOCK IS IN THE TABLE 
:BLOCK ADDRESS TO TABLE 
;SIZE TO TABLE 
aT ENTRY COUNT 


RELEASED BUFFER IS LOWER ADJACENT 
# INCREMENTED SIZE 


ENTRY COUNT 
BEGINNING OF TABLE 
BLOCK SIZE (IN WORDS) 
> CHANGE Ls BYTE COUNT 
ADD BLOCK BEGINNING ADDRESS 
R1 STILL POINTS TO INSERTED ENTRY 
LOWER ADJACENT IN TABLE 
: INCREMENT POINTER 
;DECREMENT ENTRY COUNT 
TINUE 


; CON LOOKI 
RESTORE STACK POINTER 


RESTORE R2 

2 INCREMENT LOWER BLOCK LENGTH 
;DECREMENT ENTRY COUNT 

GET READY TO COMPRESS 
INCREMENT TO NEXT ENTRY 

:C ESS er 


OMPR 

MOVE SIZE FIELD DOWN 
:DECREMENT ENTRY COUNT 
:BR IF as INI SHED 


RESTORE R2 


SEQ 0094 


1446 016672 
ieee 016674 


012601 
000207 
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017036 
036550 


000001 
o 
OU 4 


000001 
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000036 
000012 
000042 


MOV 
RTS 


(SP)+,R1 
PC 


RESTORE R1 
RETURN 


feat THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK ORDER) 


F ILBUF : 
8 


1$: 


2$: 


3$: 


4$: 


RESREG 
RTS 


PCF ILBUF 


AB1T02, $CODE ( RO)’ 
4$ 


$BUF (RO) ,R1 
SWRDL (ROS ,R2 


roe ee ADD 
#BUF ADR , SBUF (RO) 
SPATTERN. SPATTC(ROS- 


#81T00,$CODE CRO)" 


2$ 

SCYL (RO? 5 (R1) 

#140000, (R1)+ 

SSEC (ROS .(R1)+ 


R4 
SPATTC(RO) .R4 
STNDAT(R4) ,RS 


#20,R3 
(R5)+,(R1)+ 
R2 

4$ 

R3 

3$ 

#20,R3 

— (R4) ,R5 


PC 


START THE ORDER FOR THE DPB IN 
; CALL: 


GODRIV: 


1$: 
2s: 





#DPB RO 
PC,GODRIV 


RO,-(SP) 
RO,2$ 


RO.RMOS 
0 


(SP)+,RO 
#1, SOPERC (RO) 
SOPERC +2 


RO) 
$SPREVA+2(RO) , $C YL (RO) 


3$ 
#1,$POSIT(RO) 


ei THE WORD COUN 
je en OF PATTERN 


SAVE THE REGISTERS 
;SEE jin ORDER 


BR IF 
;BUFFER ADDRESS 
SITIVE WORD COUNT 
i in IF Fae HEADER TYPE ORDER 
ZCYLINDER sia 
MT22 BIT 


SET F 
SET 


RESS 
OAD. BUFFER ADDRESS INTO THE DPB 
PATTERN CODE 


RELATIVE cote ADDRESS 


PATTERN ADDR 
; PATTERN 


COUNT 
MOVE THE PATTERN INTO THE BUFFER 


2 DECREMENT “= WORD COUNT 


RO 
:DPB ADDRESS 


;SAVE RO 


; CURRENT DPB ADDRESS 
:CALL_ THE rg Be, HANDLER 
ADDRESS GOES HERE 


BLOCK 


BR IF DONE (WORD COUNT = 0) 
:DECREMENT yp inn COUNT 


DRESS 
CONTINUE DISTRIBUTING THE PATTERN 
Ht ay THE REGISTERS 


:DRIVE 
;DRIVER ly es REQUEST 


sRESTORE 

INCREMENT THE OPERATION COUNT 

ior” ORDER REQUIRE A CYLINDER CHANGE 
; INCREMENT SEEK COUNT 


SEQ 0095 


steemeeiecnaiemammencsinanes . . 
pts RMOS/3/2 PERF EXER MACRO v03.01 11-APR=80 14:52:06 Pace 9-27 
MAIN PROGRAM 


St@ VO96 
1503 017074 005560 000044 ADC SPOSIT+2(RO) — : ADD ANY CARRY 
1304 017100 000207 3$: RTS PC 
1506 :GENERATE PARAMETERS FOR THE OPERATION 
1507 CALL: 
1508 : #DPB,RO :DPB ADDRESS 
1509 : JSR PC,SELPAR 
1510 : RETURN 
1512 017102 004737 035014 SELPAR: JSR PC, $RAND iCYCLE THE RANDOM NUMBER GENERATOR 
1513 017106 032777 000001 162040 BIT #SWO,aSWR [SEE IF SwWO S 
1514 017114 001012 BNE 2$ :BR IF SET - READ ONLY 
1515 017116 012705 000010 1$: MOV #10,R5 _ $READ/WRITE SELECTION DIVISOR 
1516 017122 004737 030562 JSR PC,GETREM ~ - :GET SELECTION VALUE 
1517 017126 020537 001504 CMP R5.RATIO ; DETERMINE IF READ OR WRITE 
1518 017132 103003 BHIS 2$ READ 
1519 017134 004737 017766 JSR PC,RANWRT SELECT A WRITE ORDER 
1520 017140 000410 BR THEAD SSELECT ADDRESS 
1521 017142 013705 035114 2$: MOV SLONUM, RS :SELECT READ OPERATION CODE 
1522 017146 042705 177776 BIC #°C1,R5 ;MASK OUT ALL BUT BIT 0 
1523 017152 062705 000004 ADD #4,R STABLE OFFSET FOR READ CODE 
1524 017156 110560 000074 MOVB RS SNCODE (RO) ZORDER SELECTION CODE TO CONTROL BLOCK 
1525 017162 005737 001516 THEAD: TST HEADER ENABLE RANDOM ADDRESS SELECT ? 
1526 017166 001425 BEQ RANSEC :Y 
1527 017170 016060 002124 000076 MOV SRMDA (RO) , SNSEC (RO) : SECTOR AND TRACK 
1528 017176 016060 002152 000100 MOV SRMDC(RO).$NCYL(RO) : CYLINDER 
1529 017204 026060 000100 000106 CMP SNCYL (RO) /MAXCYL (RO) ° ZOVER MAX CYLINDER a ? 
1530 017212 103521 BLO XWCNT 
1531 017214 016060 000110 000100 MOV MINCYL (RO) . SNCYL (RO) ;RESET CYLINDER NUMBER 
1532 017222 116060 000120 000076 MOVB  MINSEC(RO).$NSEC(RO) :RESET SECTOR NUMBER 
1533 017230 116060 000114 000077 MOVB  MINTRK(RO).$NTRK(RO) :RESET TRACK NUMBER 
1334 017236 000137 017456 JMP XWCNT ;SELECT BUFFER SIZE 
1336 ;GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES "MINSEC' & "MAXSEC' 
1538 017242 016005 000116 RANSEC: MOV MAXSEC(RO).RS  :GET MAXIMUM SECTOR ADDRESS 
1539 017246 026005 000120 CMP MINSEC(RO).R5 :'MINSEC’ AND "MAXSEC' THE SAME ? 
1540 017252 001417 BEQ 2$ ‘BR IF THEY ARE 
1541 017254 166005 000120 SUB MINSEC(RO),RS  :SUBTRACT MINIMUM SECTOR ADDRESS 
1542 017260 100002 BPL 1$ [BR IF MAX LARGER THAN MIN 
1543 017262 062705 000040 ADD #32. .R5 [CORRECT THE NUMBER 
1544 017266 005205 1$: INC R5 : INCREMENT DIFFERENCE To USE AS DIVISOR 
1545 017270 004737 030562 JSR PC,GETREM [GET THE RANDOM AUGMENT 
1546 017274 066005 000120 ADD MINSEC(RO),RS  =NEW ADDRESS 
1547 017300 020527 000037 CMP R5,431, :I1S VALUE TOO LARGE ? 
1548 017304 101402 BLOS 2$ [BR IF NOT 
1549 017306 162705 000040 SUB #32. ,R5 SCORRECT VALUE 
1350 017312 110560 000076 2s: MOVB  R5,$NSEC(RO)  :STORE SECTOR ADDRESS IN DPB 
1336 GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES "MINTRK* & "MAXTRK' 
1554 017316 004737 026546 RANTRK: JSR PC,GETLMT :GET ADDRESS LIMITS 
1555 017322 016005 000112 MOV MAXTRK(RO),.RS  :GET MAXIMUM TRACK ADDRESS 
1556 017326 026005 000114 CMP MINTRK(RO).RS  :*MINTRK* AND "MAXTRK"® THE SAME ? 
1557 017332 001421 BEQ 3$ *BR IF THEY ARE 
1558 017334 166005 000114 SUB MINTRK(RO),RS :SUBTRACT MINIMUM TRACK ADDRESS 
1559 017340 100003 BPL 2$ [BR IF MAX LARGER THAN MIN 
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001450 
030562 
000114 
001450 


001450 
000077 


000106 
000110 


000110 
001466 
030562 
900110 
001465 


001466 
000100 


000001 
000402 
000005 
017656 


017102 


001466 
001502 


030562 


035014 
000004 
000004 
001466 


001466 
000004 000074 3$: 
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000074 


000102 
000074 


2s: INC 


3$: MOVB 


TRKLMT ,R5 

R5 

PC,GETREM 
MINTRK (RO), R5 
R5,TRKLM 


og RS 
RS, $NTRK(RO) 


SEQ 0097 


CORRECT THE NUMBER 


: INCREMENT DIFFERENCE re USE AS DIVISOR 
7GET THE RANDOM AUGMENT 


T 
NEW TRACK ADDRESS 
21S ae TOO LARGE ? 


SCORRECT VALUE 
;STORE TRACK ADDRESS IN DPB 


;GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES ‘MINCYL" & "MAXCYL' 


RANCYL: MOV 
CMP 


1$: INC 


2$: MOV 
XWCNT: 


3$: CMPB 


;GENERATE A 
RANSIZ: MOV 


1$: CMP 


2$: CMP 


MAXCYL (RO) ,R5S 
MINCYL (RO) ,R5 


2$ 

_ (RO) ,R5S 
#822. ,R5 

R5 


PC,GETREM 
aa oR5 


#822. .R5 
R5,$NCYL (RO) 


sed TOO, $NCODE (RO) 


W258. art (RO) * 
#5 , SNCODE (RO) 


RANXIT 
R5,CHKADR 


RANPAT 
SELPAR 


GET MAXIMUM CYLINDER ADDRESS 
:"MINCYL" AND > serait THE SAME ? 


7;BR_IF THEY AR 
; SUBTRACT MINIMUM tay = ADDRESS 
IF MAX LARGER T MIN 


:BR 
[CORRECT THE NUMBER 


: INCREMENT DIFFERENCE Le USE AS DIVISOR 
[GET THE RANDOM AUGMENT 
NEW CYLINDER ye 
‘1S VALUE TOO LARGE ? 
IF NO 
CORRECT VALUE 
7STORE CYLINDER ADDRESS IN DPB 


HEADER OPERATION INVOKED ? 


CHANGE WORD LENGTH TO 258 FOR WRTHD ORDER 
READ HEADER AND DATA ? 


ty 
7 IF WRITE HEAD AND DATA COMMAND 
sAVOID we BAD SPOT HEADER 


T ON BAD SPOT 


BRANCH IF NO 
:SELECT THE PARAMETERS AGAIN 


RANDOM BUFFER LENGTH BETWEEN 4 & THE VALUE IN ‘MAXDL' 


MAXDL ,R5 
WCSEL 
1$ 


R5 
PC,.GETREM 


GET BUFFER SIZE 
7 SEL UF ae RANDOM WORD COUNT ? 


BR I 
; INCREMENT THE MAXIMUM SIZE 
DIVIDE BY MAX VALUE 

:1S_THE nt ee Q? 

SNOT 0, CONTINUE 

:CYCLE THE RANDOM NUMBER GENERATOR 


:LESS THAN 4 ? 


SET SIZE TO 4 


LARGE THAN MAX ALLOWED ? 


MAXDL ,R5 “RESET COUNTER 
#81702, SNCODE (ROS ;READ OPERATION ? 





1617 017 
1618 017612 
1619 017614 
1620 017616 
1621 017622 
1622 017626 
1623 017634 
1624 

1625 

1626 017636 
1627 017642 
1628 017646 
1629 017654 
1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 


042705 
005705 


003002 
012705 
010560 
132760 
001004 


010246 


001002 
012705 


RMOS/3/2 PERF EXER 


000377 
000400 
000102 
000004 


020022 
00007 
177777 


000124 
177777 
000100 
177777 
000011 
177777 
000010 
000002 
000004 


000002 
001500 
000004 
000003 
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000074 


000104 


000003 
000003 
000002 
000002 


000024 


4$: 


BIC #377,R5 
R5 


4$ 
MOV #256. .R5 
R5, 


SECTOR BOUNDARY FOR WRITE OP 
NONE 


:NO 
sAT LEAST ONE SECTOR 
;WORD COUNT 


MOV SNWRDL (RO) 
BITB #BITO2,$NCODE(RO) ;READ OP ? 
BNE RANXIT YES 


GET A Ar’ gh PATTERN NUMBER 


RANPAT : 
MO 
RANXIT: MOV 
RTS 


PC, GETPAT 
R5. $NPATC (RO) 
wi, $NEXT (RO) 


GET PATTERN CODE 
:MOVE PATTERN CODE TO CONTROL BLOCK 


SET PARAMETERS SELECTED INDICATOR 
;RETURN 


ROUTINE TO CHECK THE SELECTED ADDRESS IS NOT ON THE BAD SPOT 
CALLING SEQ 


MOV #DPB,RO 
JSR R5,CHKADR 
RET1 


RET2 


:DPB ADDRESS 


NORMAL RETURN 
ERROR RET 


;RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
CHKADR: 
MOV R2,-(SP) + ¢PUSH R2 ON STACK 
MOV R3,-(SP) 32PUSH R3 ON STACK 
MOV RO,R2 ; TABLE ADDRESS 
ADD #SBDSEC ,R2 ‘DBP ADDRESS + TABLE ADDRES rene 
1$: CMP #-1,(R2) sEMPTY ENTRY OR TERMINATOR ? 
BEQ $ ‘BRANCH IF SO 
CMP SNCYL(RO),(R2) ;ON THE i te een ? 
BNE ‘BRANCH IF 
CMPB #-1,3(R2) s0N ALL TRACKS ? 
BEQ [BR IF YES 
CMPB $STRK(RO),3(R2) ;ON THE SAME TRACK ? 
BNE [BRANCH IF NOT 
2$: CMPB #-1,2(R2) 70N ALL SECTORS ? 
BEQ ‘BR IF YES 
CMPB $SEC (RO) ,2(R2) ON THE SAME SECTOR ? 
BNE 4$ ;BRANCH IF T 
3$: ADD #2,R5 :FOUND BAD ADDRESS(ES) IN TABLE 
BR 5$ sEXIT 
4$: ADD #4 ,R2 ;ADJUST TO NEXT TABLE ENTRY 
$$ BR 1$ ;LOOP BACK 


MOV (SP)+,R3 
MOV (SP)+,R2 
RTS R5 


3zPOP STACK INTO R3 
3;POP STACK INTO R2 
RE TURN 


ROUTINE TO SELECT A WRITE (OR WRITE HEAD AND DATA) OPERATION 
RANWRT: MOV #2,R5 
FORMAT 


1$ 
CMPB $3 SCORE (RO 
MOV #3,R5 





SET WRITE DATA COMMAND 
;ALLOW FORMAT OPERATION ? 


PREVIOUS A READ DATA COMMAND ? 
SET A WRITE HEAD AND DATA COMMAND 


SEQ 0098 


ay 


CZRMUAQ RMO5/3/2 PERF EXER 
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160776 
000024 


000002 
000002 


000027 


000002 
000024 


000002 
000077 


000030 
000010 


1$: MOVB 


RTS 


SEQ 0099 


RS,$NCODE(RO) ;SELECT THE WRITE COMMAND 
PC EXIT 


:ROUTINE TO SELECT A PATTERN 


GETPAT: MOV 
TST 
2$: JSR 


1$: ASL 
“eae TO 
:CA LL 

JSR 


GETPAR: 


1$: JSR 


22$: 


2s: MOVB 


3$: CMPB 


4$: 


#20,R5 :SELECT PATTERN 

PATTEN ; ENABLE RANDOM PATTERN SELECTION ? 
PATTEN,RS ZUSE INDEXED PATTERN 

PC,GETREM :GET CODE 

R5 [WAS PATTERN ZERO SELECTED ? 

1$ :BR IF NOT ZERO 

PC, SRAND :CYCLE THE RANDOM NUMBER GENERATOR 
GETPAT ‘TRY AGAIN 

RS [MAKE CODE INTO TABLE INDEX 

THE PREVIOUSLY SELECTED PARAMETER VALUES 

#DPB,RO :DPB ADDRESS 

PC, SELPAR TSELECT THE PARAMETERS 

PC: GETPAR 

RS, 


~(SP) 
$RMCS1 (RO) “SPREVACRO) 
#*C76,$PREVO(RO) P GO,AND IE 
#6,$NCODE(RO) ;SEE g Next OPERATION IS READ OR WRITE 


EI THE 
SCYL (RO), SPREVA+2(RO) ;SAVE STARTING CYLINDER 
 eaiesteme egy ZSAVE STARTING SECTOR AND TRACK 


;GET THE _DECREMENTED = 4 AND TRACK ADDRESSES 
NDER ADDRESS 
ADDRESS 


E RS 
2 SAVE CURRENT PARAMETERS 
RIP BITS 


(SP) +. $PREVA(RO) 
#5W06. aSWR rSWITCH 6 SET ? 
5$ F SET 


3BR IF SE 
pecans SCODE(RO) ;LOGICAL CODE FOR OPERATION 
SNCODE(RO),RS __;LOAD R5 FOR USE AS TABLE INDEX 


COMTBL (R5) . $COMND (RO) CODE 
#151,$COMND(RO) ;WRITE CHECK DATA COMMAND ? 

$ ‘NO,DO NOT CARE 

#60. SPREVO(RO) PREVIOUS A WRITE DATA COMMAND ? 
#171,$COMND(RO) :CHANG TO READ DATA COMMAND 

#4, SCODE (RO) :CODE NUMBER CHANGED TO READ DATA 

#153, $COMND(RO) :WRITE CHECK HEAD AND DATA COMMAND ? 
#62, SPREVO(RO) ; PREVIOUS A WRITE HEAD AND DATA COMMAND? 


YES.EX 
2s ISET TO READ DATA COMMAND 


SNPATC (RO) , SPATTC(RO) 
SNSEC (RO) , $SEC (RO) 


PATTERN CODE 
; TRACK AND SECTOR ADDRESSES 








CZRMUAO RMOS/3/2 PERF EXER 
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748 020356 016111 000002 
9 020362 

0 020364 062701 000002 
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000012 MOV SNCYL(RO),SCYL(RO) CYLINDER ADDRESS 
000020 MOV SNWRDL (ROS ,$WRDL(RO)” ;BUFFER SIZE 
000004 MOV SNWRDL (RO); $WRDM(RO) WORD C 
NEG $WRDM(RO) : COMPLEMENT IT 
000022 MOV #256. ,$SSEC(RO) ;INITIAL VALUE OF SECTOR SIZE 
000024 BIT #1,$CODE (RO) “HEADER OPERATION ? 
BEQ 5$ ‘BR IF NOT 
000022 ADD #2,$SSEC(RO) § :ADD HEADER SIZE 
5$: CLR $NEXT (RO) TRESET * PARAMETERS LOADED' INDICATOR 
MOV (SP) +,R5 SRESTORE RS 
RTS PC RETURN 
: ROUTINE TO COMPRESS A LIST 
: #ADDRS ,R1 : COMPRESS LIST STARTING AT THIS ADDRESS 
; JSR PC, CMPRES : 
: RETURN 
CMPRES: MOV 2(R1),(R1) :COMPRESS THE TABLE IN R1 
BEQ 1$ “BR WHEN ZERO F FOUND 
ADD #2,R1 : INCREMENT R1 
BR CMPRES [CONTINUE COMPRESSING TABLE 
1$: RTS PC RETURN 
: ROUT INE TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK 
: MOV :DPB ADDRESS 
of MOV 21 SeACKORO) * "WRITE PACK’ FLAG 
: MOV #1,$PACK(RO) "READ PACK" FLAG 
: JSR PC WRTPK 
: RETURN 
WRTPK: JSR PC, $RAND ZCYCLE THE RANDOM NUMBER GENERATOR 
TST SOPERC+2(RO) SEE IF FIRST OPERATION 
BNE WRTPK1 [BR IF UPPER WORD OF COUNTER NOT ZERO 
TST SOPERC (RO) ; LOWER WORD ZERO ? 
BNE WRTPK1 BR_IF NOT 1ST QPERAT 1ON 
TSTB SPACK (RO) SEE WHICH = 'R* OR ' 
BMI WRTPK3 IF ‘w' 
BR PK2 *"R' OPERATION 
000027 wWRTPK1: MOVB SRMCST (RO) ~SPREVO(RO) -SAVE CURRENT PARAMETERS 
JSR PC ,READDR THE DECREMENTED SECTOR AND TRACK ADDRESSES 
MOV (SP)+, SPREVAS2(ROD sCYLINDER ADDRESS 
MOVB  (SP)+.$PREVA+1(RO) ; TRACK 
MOVB  (SP)+.$PREVA(RO) ;SECT DRESS 
000010 MOV SRMDA(RO) , $SEC ( NEW OR & TRACK ADDRESS 
000012 MOV SRMDC(RO)-$CYL(RO) =NEW CYLINDER AD RESS 
000106 CMP SCYL(RO) ,MAXCYL(RO) °:SEE IF TEND 
BLO 2$ BR IF LESS THAN *MAXCYL* 
BHI 1$ ‘BR IF GREATER THAN 'MAXCYL' 
000112 CMPB = $TRK(RO),MAXTRK(RO) SEE _IF AT MAX TRACK 
BLO 2$ IF NOT GREATER 
000011 1$: MOVB -MINTRK(RO),$TRK(RO) :RESET TRACK ADDRESS 
000010 MOVB  MINSEC(RO)-$SEC(RO) :RESET SECTOR ADDRESS 
000012 MOV MINCYL(RO),$CYL(RO) :RESET CYLINDER ADDRESS 
000024 MOVB #4,$CODE(RO) — ;SET CODE TO READ DATA 





SEQ 0100 


CZRMUAO RMO5/3/2 PERF EXER 
MAIN PROGRAM 


177776 
030254 
000020 


000124 
023176 


177777 


000003 
177777 
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000026 


160372 


000003 


000002 





CMPB = #=2,$PACK(RO) WT OPERATION IN PROCESSING 
BEQ WRTPKS YES 
JSR PC ,EOP2 [DROP THE DRIVE (NORMAL TERMINATION) 
BIT #SWO4 ,A@SWR :1S SWITCH 4 SET ? 
BNE 2$ 3BR IF SET 
TST (SP)+ : INCREMENT THE STACK POINTER 
JMP MAIN [RETURN DIRECTLY TO "MAIN' 
2s: MOV MAXDL,SWRDL(RO) °:BUFFER SIZE IS MAXIMUM 
BIC Wao $WROL(RO) ;SECTOR BOUNDRY FOR WRITTING 
MOV MAXDL,$WRDM(RO) °:WORD COUNT 
BIC #377,$WRDM(RO) ;SECTOR BOUNDRY FOR WRITTING 
TST $WRDM(RO) :SIZE=0 ? ? 
BGT 3$ 
MOV #256. ,S$WRDM(RO) SET TO ONE SECTOR 
MOV #256. .$WRDL(RO) :SET ONE SECTOR 
3$: NEG $WRDM(RO) [CHANGE WORD COUNT TO 2°S COMPLEMENT 
TSTB  $PACK(RO) TREAD OR WRITE ? 
BMI WRTPK3 [BR IF WRITE 
WRTPK2: MOV #258. ,$SSEC(RO) “;SECTOR SIZE FOR READ 


MOVB #5 , SCODE (RO) ;CODE FOR READ HEADER & DATA 
MOVB #RDHD 5 SCOMND (RO) iy up eke te A OPERATION 


BR WRTPK 3s 
WRTPK3: MOV #256. , SSSEC (RO) SECTOR SIZE 


MOVB #2 -SCODE (R RO) ODE ober WRIDAT 
MOVB  #WRTDAT, $COMND(R rds ODE 
JSR PC,GET PAT. :GET PATS ra CODE 
MOVBsRS. SPATTC(RO) [PATTERN CODE 
WRTPK4: CLR $NEXT (RO) ZCLEAR "PARAMETER SELECTED’ INDICATOR 
RTS PC RETURN 
WRTPKS: CLR PACK SCLEAR WT FLAG 
CLRB = $PACK(RO) [CLEAR WT FLAG 
TST (SP) + ‘CLEAR STACK LEVEL 
JMP MAIN : JUMP TO MAIN BACKGROUND LOOP 
;ROUT INE TO, DETERMINE OF ERROR IS AT A LOCATION ON THE PACK DEFINED 
wey IN THE BAD TRACK/SECTOR TABLE FOR THE DRIVE. 
; JSR PC, SPOTCK 
: RETURN1 ZERROR AT AN ADDRESS IN TABLE 
; RETURN2 [NO TABLE ENTRY FOR ERROR ADDRESS OR 
: [PARAMETER '"NOTPRT' IS 0 
SPOTCK 
MOV R1,-(SP) ::PUSH R1 ON STACK 
MOV #SBDSEC,R1 s INCREMENT FOR BAD SECTOR TABLE 
ADD RO,R1 [ADD THE BLOCK'S STARTING ADDRESS 
1$: JSR PC-READDR :DECREMENT THE SECTOR/TRACK ADDRESS 
CMP (Ri), (SP) + [ON THE SAME CYLINDER ? 
BNE ‘BRANCH IF 
CMPB es #~1,,3(R1) TALL BAD TRACKS ? 
BNE 2$ 7BR IF NO 
TST (SP)+ SADJUST STACK AND 
BR :GO CHECK SECTORS 
2s: CMPB  =—s-« (SP) +, 3(R1) [COMPARE THE TRACK ADDRESS 
BNE 6$ :BR IF IT IS NOT EQUAL 
3$: CMPB es #=1,.2(R1) SALL BAD SECTORS ? 


CZRMUAO RMOS/3/2 PERF EXER 
MAIN PROGRAM 


1843 021030 

1844 021032 

1845 021034 

1846 021036 

1847 021042 

1848 021044 

1849 021046 

1850 021050 

1851 021052 

1828 021056 

1853 021060 

1854 021062 

1855 021064 

1856 021070 

1857 021072 

1858 021100 

1859 021106 
021106 

1860 021110 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 021112 

1872 021120 

1873 021122 

1874 021126 

1875 021134 

1876 021136 

1877 021142 

1878 021146 

1879 021150 

1880 021154 

1881 021160 

1882 021164 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 021166 
021166 
021170 
021172 

1895 021174 





032777 


000002 


006004 


001510 
177777 
000002 


002000 


001176 
020000 


001203 
001203 


001203 
024364 
073271 


001203 
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BNE 4$ :BR IF NO 
TST (SP) + SADJUST STACK AND 
BR as SCHECK "NOTPRT' 
4$: CMPB  —s- (SP) +, 2(R1) ZCOMPARE THE SECTOR ADDRESS 
BNE 7$ [BR IF NOT EQUAL 
BR 8$ SCHECK "NOTPRT' 
5$: TST (SP)+ LEAR OFF THE STA 
6$: TST (SP)+ ; INCREMENT THE STACK POINTER 
7$: ADD #4,R1 O TO THE NEXT LOCATION IN THE TABLE 
TST (Ri) [EMPTY ENTRY OR TERMINATOR ? 
BMI 9$ :BR IF YES 
BR 1$ :TRY NEXT SECTOR 
8$: TST NOTPRT [PRINT THE ERROR ANYWAY ? 
BNE 10$ ‘BR IF NOT 
001364 MOV #-1 ,BADSEC ZSET THE INDICATOR FOR THE IDENTIFICATION LINE 
000002 98: ADD #2,2(SP) : INCREMENT THE RETURN 
MOV (SP)+,R1 z:POP STACK INTO R1 
RTS PC RETURN 
5 ERA 
.SBTTL ERROR MESSAGE GENERATION ROUTINES 
STARR REE 
zPRINT LINE 1 OF ERROR MESSAGE: 
:"HH:MM:SS' 
160034 LINE1: BIT #SW10,aSWR : SWITCH 10 SET ? 
BEQ 1$ :BR IF 
TYPE ,$BELL RING TH HE REL LL 
160020 1$: BIT #SW13,aSwR S INHIBIT TYPEOUT ? 
BEQ 2$ [BR IF NOT 
DISPLY ,$CRLF :CR-LF 
DISPLY ‘$CRLF CR-LF 
BR $ sEXIT 
2$: DISPLY |$CRLF > CR-LF 
JSR PC, $TIME *TYPE THE TIME 
DISPLY ,BLNKS1 “TYPE 1 BLANK 
3$: RTS PC [RETURN & TYPE DESCRIPTION 
;PRINT LINE 2 OF ERROR MESSAGE 
;}PRESENT ORDER = XXXX PREVIOUS ORDER = XXXX" 
* ERROR AT BAD TRACK/SECTOR' 
; RV RMCS1 RMCS2  RMDS1  RMERT RMR RMER2 RMEC1 RMEC2° 
:"RMWC RUMBA ARMAS — RMLA RMMR1  RMDT' 
7'RMSN  RMOF  RMDC  RMCC _ STATUS 
; "BUS ADDRESS OR WORD COUNT NOT CONSISTENT’ 
T"RMBA = XXXXXX  RMWC = XXXXKX" 
"BUFFER ADR = XXXXXX size XXXX ACTUAL NMBR WRDS XFRD = XXX" 
LINE2: 
R3,-(SP) ::PUSH R3 ON STACK 
MOV R4,~-(SP) 7ZPUSH R4 ON STACK 
MOV R5.-(SP) +:PUSH R5 ON STACK 
DISPLY ,$CRLF *CR-LF 


SEQ 0102 
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ERROR MESSAGE GENERATION ROUTINES 


021326 
071374 
6 


021326 


021326 


021332 


157532 


3$: 


4$: 
5$: 


LINE2A: 


D 
LINE2B: 
D 


SEQ 0103 

4$ ;CLEAR MESSAGE ADDRESS STORAGE 
RS : WORKING REGISTE 
ALIN2ZC,4$ ADDR rr OF ‘PRESENT ORDER = ‘ MSG 
SRMCS1(RO) RS ‘GET T HE OPCODE 
#*C76,R4 + SAVE ONLY SIGNIFICANT BITS 

* : TYPE THE FIRST MNEMONIC 

SEE IF MNEMONIC ENTRY FOUND 

LINE2A 5 F NOT 
MLIN2P,4$ ;ADDRESS OF ‘PREVIOUS ORDER = * MSG 
SPREVO(RO) ,R4 sPREVIOUS OPERATION CODE 
#*C76,R4 + SAVE ONLY SIGNIFICANT BITS 
PC,1 ;TYPE THE PREVIOUS MNEMONIC 
LINE2A TINUE 
R5 “CLEAR THE TABLE INDEX 
OPTBL (R5) ,R4 LOOK FOR THE OPCODE 
3$ “BR WHEN OPCODE COUNT EQUALS OPCODE 
OPTBL (R5) 7. FOR END OF TABLE 
3$ BR F END 
R5 ; INCREMENT THE POINTER 
2$ + CONT INUE = NOT END OF TABLE 
R5 sSHIFT INDEX 
RS sSHIFT THE INDEX 
R5 + SHIFT THE INDEX 
AMNTBL ,.5$ ADDRESS OF ASCII TEXT TABLE 

5$ ADD ae INDEX 
0 sADDRESS OF ‘PRESENT’ OR ‘PREVIOUS’ MESSAGE 

; TYPE THE OPERATION MNEMONIC 

0 SADDRESS OF MESSAGE 
PC ;RETURN TO MAIN ROUTINE | 
BADSEC :PRINT THE BAD SECTOR LINE ? 
LINE2B g s NOT | 
-SCRLF 3 CR- 
Amey ZERROR ADDRESS DEFINED AS BAD AREA 
-DH14 Te RM REGISTER HEADER 
-BLNKS1 TYPE 1 BLANK 
UNIT, -(SP) :PUT THE DRIVE NUMBER ON THE STACK 
PC,LINDEC TYPE DRIVE NUMBER 
-BLNKS2 2 
#DT14,R5 SREGISTER INDEXES 
C.3$ PRINT THE REGISTERS 
#SWO05 ,aSWR “PRINT THE OPTIONAL SREGISTERS ? 
$ ‘BR IF NOT ! 
.DH15 | 
#DT15,R5 ;SECOND DATA LINE | 

fae zPRINT THEM 
#DT16,R5 ; THIRD DATA LINE 
PC,3$ ;PRINT THE REGISTERS 
#BIT6,$TATUS(RO) ;DATA ERROR ? 

$ 3;BR IF NOT | 
SWRDL(RO),-(SP) ; TRANSFER SIZE 
SRMWC (RO), (SP) SADD REMAINING WORD COUNT | 
(SP) a¢ rye TO AN BYTE INCREMENT 
SBUF (RO), (SP) ‘BUF FER STARTING ADDRESS | 
(SP)+, $RMBA (RO) ;CORRECT BUFFER ADDRESS ? 


N 8 ° 
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MESSA ON NES SEQ 0104 
1953 021506 BEQ 2$ :BR IF YES 
1954 021510 070415 DISPLY ,EM46 ;"BUS ADDRESS AND WORD COUNT ARE NOT CONSISTENT’ 
1955 021514 001203 DISPLY ,$CRLF CRLF 
1956 021520 021632 JSR PC,LINE3D ;PRINT LINE OF ERROR MESSAGE 
1957 021524 022244 JSR PC,LINE4 SPRINT LINE 4 OF ERROR MESSAGE 
1958 021530 2$: 
021530 MOV (SP)+,R5 3sPOP STACK INTO R5 
021532 MOV (SP) +,R4 33POP STACK INTO R4 
021534 MOV (SP) +,R3 :3POP STACK INTO R3 
1959 021536 RTS P :RETURN TO ERROR PROCESSING ROUTINE 
1960 021540 3$: MOV (R5)+,=(SP) sPUT THE REGISTER INDEX ON THE STACK 
1961 021542 ADD RO, (SP) zADD DRIVE'S TABLE ADDRESS 
1962 021544 000000 MOV @(SP) ,-(SP) 3 
1963 021550 023124 JSR PC,LINOCT TYPE IT 
1964 021554 TST P)+ CORRECT THE STACK POINTER 
1965 021556 073270 DISPLY ,BLNKS2 :TYPE 2 BLANKS 
1966 021562 T (R5) AT END OF LINE ? 
1967 021564 BNE 3$ BR IF NOT 
1968 021566 001203 4$: DISPLY ,$CRLF 7 CR=LF 
1308 021572 RTS PC sRETURN 
1971 zPRINT LINE 3 OF ERROR MESSAGE 
138 :"ERROR AT CCC TT SS PREVIOUS ADR = CCC TT SS° 
1974 021574 071475 LINE3: DISPLY ,LINM3 LINE 3 ENTRANCE 
bt 021600 BR LINS.1 FINISH PRINTOUT 
1977 aa LINE 3A OF ERROR MESSAGE 
4 4 | ;"START CYL = CCC END CYL = CCC’ 
1980 021602 071513 LINE3A: DISPLY ,LINN3 sLINE 3A ENTRANCE 
i) 021606 BR LIN3. FINISH ERROR LINE 
1983 :PRINT LINE 38 OF ERROR MESSAGE 
ib: s"START CYL = CCC END CYL = CCC ACTUAL CYL = CCC’ 
1986 021610 022146 LINE38: JSR PC,LIN3.3 :LINE 3B ENTRANCE 
1987 021614 001203 DISP . SCRLF 
ieee 021620 PC 
1990 sPRINT LINE 3C OF ERROR MESSAGE 
«4 s"START CYL = CCC END CYL = CCC ACTUAL CYL = CCC TRK = TT’ 
1993 021622 004737 022146 LINE3C: JSR PC,LIN3.3 LINE 3C ENTRANCE 
i 021626 000137 022206 JMP LIN3.4 zFINISH MESSAGE 
1996 sPRINT LINE 3D OF ERROR MESSAGE 
Hh 44 2 "RMBA = XXXXXX  RMWC = XXXXXX" 
1999 021632 032777 000040 157314 LINE3D: BIT + a aSWR sSWITCH 5 SET ? 
2000 021640 001416 BEQ ve BR IF IT IS 
2001 021642 104414 DISPLY ; "RMBA = 
2 021646 016046 MOV SRMSACROD , -(SP) ;BUFFER ADDR REG CONTENTS 
2003 021652 004737 023124 JSR st LINOCT ; CONVERT TO OCTAL AND TYPE IT 
1656 104414 071674 DISPLY Nw3 RMWC = 
2005 021662 016046 002120 MOV $FoN (0) ~(SP) WORD COUNT REGISTER CONTENTS 
1666 004737 023124 JSR PC,LINOCT CONVERT TO OCTAL AND TYPE IT 
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2007 021672 104414 001203 
2008 021676 000207 


2 

on- 
aR 
e2 


$8 


— ot ts 8 es SY 
SW 
ae 
oo 
NN 
Ww 
Nm 
N 
So 


SSSaNanRAr=o 
SoOoooooooo 


N 
x 
= 
3 


7 
1732 


SSSSSSSSSsss 


Ww 

mn 
Sees 
es 


38 
ss 
SPSS ey 
Pe 


6 

7 

4 

2 071723 
000010 

7? 023156 

2026 02171 4 001203 

2027 021764 

2028 

2029 

2030 


83 
Sue 


2032 021766 032777 000040 
2033 021774 20 

2034 021776 071654 
2035 022002 016046 002124 
2036 022006 
2037 022012 


022040 004737 023176 


ms 

Ww 

Ww 

S 

S 

Z 

— — 

SeSe8 
Seatcoatceel 
en 
oooo 
we 
_—W 
on 


Ww 
NEN 
¥ 


$ 

oO 

g 
NSS 

NSRS 

a 


000034 
023156 
071510 


§ 
=338 
eReo 


Noe-—— 
NANOS 
RF 
Sy 


000033 
023156 
071534 


N 
VUVUVULUN 
MN 
= 

~~ 

—_ 

Sse 


000032 
023156 
001203 


: 


So 
8 
y 
— 
2258 
“nN 4 
NAAR NO 
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Ss 


157160 


DISPLY 
1$: RTS 
PRINT LINE 3€ 


LINE3E: DISPLY 
MOV 


SEQ 0105 
,$CRLF 
PC 


OF ERROR MESSAGE 
: "START CYL = CCC 


START TRK = TT START SEC = SS' 
LINS3 :"START CYL = * 
$CYL(RO).=(SP) MOVE CYL TO STACK 
PC, LINDEC ZTYPE IT IN DECIMAL 
/BLNKS2 :TYPE 2 BLANKS 
;LINST3 S*START TRK = ° 
=(SP) [CLEAR STACK 
STRK(RO),(SP) =: TRACK TO STACK 


PC,LINDEC :TYPE IT_ IN DECIMAL 
YPE 2 BLANKS 


-BLNKS2 iT 

LINSS3 : "START SEC = ° 

-(SP) sCLEAR STACK 

SSEC (RO), (SP) sSECTOR ADDR TO STACK 
PC, LINDEC ;TYPE IT IN DECIMAL 
go 


;PRINT LINE 3F OF ERROR MESSAGE 


2 "RMDA = XXXXXX 


LINE3F: BIT 
BEQ 


RMCA = XXXXXX* 


#SWS , ASWR sSWITCH 5 SET ? 
1$ ;BR IF NOT 


DISPLY ,LINDA3 :"RMDA = ' 
V SRMDA(RO),-(SP) :PUT SECTOR/TRACK ADDRESS ON THE STACK 
JSR PC,LINOCT [TYPE IT 
DISPLY ,BLNKS2 STYPE 2 BLANKS 
DISPLY [LINCA3 :¢ =' 
MOV SRMDC(RO),-(SP) :PUT DESIRED CYLINDER ADDRESS ON THE STACK 
JSR PC ,LINOCT STYPE IT 
DISPLY ,$CRLF 
1$: RTS PC 
:'CCC TT SS. PREV ADR = CCC TT SS' 
LIN3.1: JSR PC ,READDR ;DECREMENT TRACK AND SECTOR ADDRESS 
JSR PC LINDEC :TYPE IT IN DECIMAL 
DISPLY , ‘PRINT * T° 
JSR PC,LINDEC STYPE TRACK IN DECIMAL 
DISPLY , [PRINT ' S° 
JSR PC,.LINDEC ZTYPE SECTOR ADDRESS 
DISPLY ,L “PRINT "PREV ADDR' 
MOV $PREVA+2(RO),-(SP) ;PREVIOUS CYLINDER 
JSR PC, LINDEC :TYPE IT IN DECIMAL 
DISPLY , ‘PRINT * T° 
CLR =(SP) “MAKE ROOM ON THE STACK 
MOVB $PREVA+1(RO), (SP) ;PREVIOUS TRACK ADDRESS 
JSR PC,LINDEC zTYPE IT IN DECIMAL 
DISPLY [PRINT * S° 
CLR =(SP) sMAKE ROOM ON THE STACK 
MOVB = $PREVA(RO), (SP) “;PREVIOUS SECTOR DDRESS 
JSR PC ,LINDEC :TYPE IT IN DECIMAL 
DISPLY ,$CRLF 
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077612 
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071632 


002125 
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023124 
071757 
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001203 


072024 
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000016 


002122 


RTS PC 
:"START CYL = CCC 


LIN3.3: DISPLY ,LINS 
MOV 
DESPLY PT ENENS 
V $RMDC (RO) ,=(SP) 
JSR PC, LIND 
RTS PC 


:"ACTUAL CYL = CCC TRK = igh 


LIN3.4: DISPLY ,LINA3 
MOV CYLNDR ,=(SP) 


BIC #B1T12, (SP) 
JSR PC,LINDEC 
DISPLY ,LINT3 

CLR ~(SP) 


MOVB SRMDA+1 a (SP)° 


JSR PC,LINDEC 
DISPLY gSCRLF 


PRINT LINE 4 OF ERROR MESSAGE 


: "BUFFER ADR = XXXXXX SIZE = 
LINES: BIT #B1T06, STATUS (RO) 
BEQ Faas 
DISPLY 
Vv $5UF (ROD gi 
R ti LINOCT 
DISPLY NS4 
V SuRDL (RO) ,~(SP) 


JSR PC,LINDEC 


DISPLY ,LINX4 : 
V $RMBA (RO) .-(SP) 
SUB SBUF (RO) (SP) 


J PC,LINDEC 
DISPLY ,$CRLF 
1$: RTS PC 


i cnop LINE 5 OF ERROR MESSAGE 
; "GOOD DATA = XXXXXX 


LINES: DISPLY ,LINDS 
SUB #2, SRMBA(RO) 
MOV aSRMBA(RO) -(SP) 
pispLy ‘cites 
V sfr8 (RO) -(SP) 
JSR PC, PC LINO 
MOV (RO) .= -(SP) 


ADD SunDL (RO), (SP) 


BAD DATA = XXXXXX 


END CYL = CCC’ 


NE °3B & 3C' ENTRANCE 


3 
$PREVA+2(RO) (Shh NBREVIONS CYLINDER 
EC TYPE IT 


IN DECIMAL 
N ND CYL’ 

“PRESENT CYLINDER 

2 TYPE IT IN DECIMAL 


PRINT ‘ACTUAL* 
ACTUAL Sf peace 


SCLEAR THE FORMAT BIT 


7 TYPE mi IN DECIMAL 
TRACK 


CLEAR STACK WORD 
PUT TRACK ON STACK 
;TYPE IT IN DECIMAL 


SPRINT 


XXXX ACTUAL NMBR WRDS XFRD = XXx' 


ox ERROR ? 
F NOT 


"PRINT BUFFER® 
BUFFER ADDR ON STACK 
cEOINE SISER & PRINT 


:BUFFER SIZE 
th IT IN ieee 
TUAL NMBR WRDS XFRD = ° 
VALUE IN BUFFER = REGISTER 
;SUBTRACT STARTING ADDRESS 
CONVERT INTO A WORD COUNT 
Sines IT IN DECIMAL 


RETURN 


SECT POS = XXx’ 


PRINT "GOOD DATA 
BACK THE ADDRESS ‘we 


TY Ry DATA ~ AT THE BUFFER LOCATION 


YPE 

PRINT ‘BAD DATA 
:BAD rete FROM BUFFER 
£ WORD LENGTH ON STACK 


MAKE INTO A POSITIVE NUMBER 
SUPPER DIVIDEND TO ZERO 


SEQ 0106 
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2127 gees 016046 000022 
022410 sg HA 030610 


) 

4 072057 
7 058186 
; 001203 


22 
022434 104414 072075 


MMM NNEMENoNoNoNononyony: 
a Ded ee ed ad ad od od ed 
RSSIEARANYSSVS 


2146 022474 104414 
4pr4 022500 000207 


4 
2149 

slay 

3) 52 022502 104414 072131 
2153 0225 00 


159 022536 
4+ 022542 000207 
2162 

2163 


2164 
2165 022544 104414 072154 
2166 022550 104414 001203 
2167 022554 000207 


2172 022556 104414 072207 
$177 022562 000411 


74 

2175 

2176 

2177 

2178 022564 104414 072154 
79 022570 000406 
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MOV SSSEC(RO),-(SP) ;SECTOR SIZE ON THE STACK 

JSR PC, LINKDV :DIVIDE WORDS XFERED BY SECTOR SIZE 
MOV (SP) (SP) MOVE REMAINDER UP THE STACK 

DISPLY ,LINPS PRINT ‘SECT POS' 

JSR PC LINDEC [TYPE THE POSITION 


+E a , $CRLF 
RTS PC 


sPRINT LINE 5A OF THE ERROR MESSAGE 
: "HEADER FROM ERROR 3ECTOR XXXXXX XXXXKX XMMXXX XXXXXX! 


LINESA: 
2$: DISPLY ,LINSS ; "HEADER CONTENTS OF ERROR SECTOR’ 
MOV CYLNDR,-(SP) SHEADER POSITION 
PC,LINOCT ; = IT 
DISPLY ,BLNKS YPE 2 BLANKS 
V CYLNDR+2,-(SP) HEADER POSITION +2 
JSR PC,LINOCT sTYPE IT 
DISPLY ,BLNKS2 STYPE 2 BLANKS 
DISPLY ,LINXS : APPEND ING INFO 1/23/77 
3$: ae" ” aed 


:PRINT LINE 5B OF ERROR MESSAGE 
3 "RMEC1T = XXXXXX  RMEC2 = XXXXXX' 


LINESB: DISPLY ,LINEPS :"RMEC1 = ° 
MOV SRMEC1(RO),-(SP)°_;PUT REGISTER CONTENTS ON THE STACK 
JSR PC,LINOCT sTYPE IT 
DISPLY -BLNKS2 : TYPE 2 BLANKS 
DISPLY NEOS * RME 
MOV $FoReC (RO), ~(SP)" _;PUT REGISTER CONTENTS ON THE STACK 
JSR PC,LINOCT sTYPE IT 
DISPLY ,$CRLF 
RTS PC RETURN 


:PRINT LINE 6 OF ERROR MESSAGE 
:"SECTOR IS ECC CORRECTABLE' 


LINE6: DISPLY ,LINB6 ECC CORRECTABLE 
DISPLY ,$CRLF 
RTS PC 


PRINT LINE 6A OF THE ERROR MESSAGE 
: "SECTOR READ CORRECTLY AT OFFSET N° 


LINEGA: atl pi iace sPRINT "READ CORRECTLY AT OFFSET N° 


: TYPE THE REST OF THE LINE 


PRINT LINE 68 OF THE ERROR MESSAGE 
:"SECTOR IS ECC CORRECTABLE AT OFFSET N' 


PRINT LINE 6C OF THE eager MESSAGE 
: "CORRECTED ON NTH RETR 


LINE6B: eroruy arse | sPRINT "SECTOR IS ECC CORRECTABLE ° 


SEQ 0107 


ee 
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022572 104414 072236 
2576 000414 


072265 


NNMINNNNNNoNoMonononyornyg 
ed ed ed ed ceed aD ced ced ed ed ed aed cae 
BLRFRAVLSSELRARS 
% 
g 
R 


2606 006301 
022610 016137 002474 
104414 
000000 
2199 022622 104414 001203 
626 000207 
104414 001203 
000207 


3 
2214 022654 104414 072340 
2215 000036 


6 
22666 004737 035212 


1 
2230 022746 004737 035212 
2231 022752 004737 031124 





022620 


156164 


LINE6C: DISPLY ,LING6 : "CORRECTED ON NTH RETRY‘ 
BR LIN6.2 TYPE THE REST OF THE LINE 


PRINT LINE 6D OF THE ERROR MESSAGE 
; "UNCORRECTABLE AFTER N RETRIES' 


LINE6D: DISPLY ,LINUO6 ;"UNCORRECTABLE AFTER N RETRIES* 
BR LIN6.2 :FINISH 
; TYPE THE OFFSET VALUE IN MICRO=INCHES 
LIN6.1: ASL R1 ;DOUBLE THE OFFSET TABLE INDEX 
DIePLY OFMTBL(R1),1$ ;ADDRESS OF OFFSET POSITION MESSAGE 
1$: -WORD 0 OFFSET VALUE 


DISPLY ,$CRLF 
RTS PC 


RETRY COUNT TYPEOUT 


LiN6.2: CLR ~(SP) py a STACK 
MOVB RETRY+1, (SP) ZRETRY COUNT 
JSR PC,LINDEC STREIR a IN DECIMAL 
DISPLY INR6 RETR 


aL 
DISPLY ,$CRLF 
RTS PC 


PRINT LINE 7 OF THE ERROK MESSAGE 
2 "ORDERS:XXXXX TOTAL ERRORS:XXX  WRDS XFRD:XXXXXXX  WRDS READ :XXXXXXX" 


LINE7: DISPLY ,LIN7O PRINT ORDER COUNT 
MOV MSOPERC,-(SP) ;TO STACK 
ADD RO, (SP) :ADD La BASE ADDRESS 
JSR PC, $DB2D i IT 
JSR PC, $SUPRS PRINT IT 
DISPLY ,LIN7T TOTAL ERRORS 
MOV STOTAL (RO), -(SP)° TO STACK 
JSR PC,LINDEC TYPE IT IN DECIMAL 
DISPLY z:PRINT ‘WRDS XFR° 


LIN7X 
#STRANS .~(SP) ADDRESS OF LOW WORD ON STACK 
ADD RO, (SP) 


JSR PC, $DB2D : CONVERT 

JSR PC, $SUPRS :PRINT 

DISPLY ,LIN7R ; "BITS READ‘ 

MOV #SREAD ,-(SP) LOW WORD ADDRESS 

ADD RO, (SP) 

JSR PC, $DB2D : CONVERT 

JSR PC, 1 Ma :PRINT IT 

DISPLY ,$CR :CR- 

+H #SUIS asa SEE" id _— ON ERROR’ ~ SWITCH 15 

HALT i SUITCH 15 HALT 
1$: RTS PC 


PRINT LINE 7A OF ERROR MESSAGE 
2 "ORDERS: XXXXX TOTAL SEEKS=XXXXX TOTAL MISPOS ERR = XXX TOTAL SKI= Xxx’ 


SEQ 0108 


RROR MESSAGE GENERATION ROUTINES 
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2240 

2241 022776 104414 072340 

224 § 023002 012746 000036 
023006 


060016 
2244 023010 004737 035212 
2245 OSene 004737 O31 te8 


2246 02 104414 072350 
2247 023024 012746 000042 
2248 023030 060016 

| 


2260 023106 

2261 023110 000207 

2262 

2263 

2264 

2265 

2266 023112 104414 072455 
2267 023116 004737 021166 
2268 023122 000207 

2269 

2270 

2271 

2272 

2273 

2274 

2275 
2276 023124 016646 990002 
2277 02310 004737 031554 
2278 023134 012637 023150 
2279 023140 062737 5 


2291 
2292 023156 016646 000002 
2293 023162 Osi 2¢e 


2294 023166 
2295 023172 0126 
2296 023174 00020 





156050 


023150 
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LINE7A: DISPLY 
MOV 


1$: 


,LIN70 "ORDERS = ° 
WSOPERC,-(SP) ORDER COUNT INCREMENT 
RO, (SP) ;ADD BASE ADDRESS 
PC. $DB2D [CONVERT THE COUNT 
PC. $SUPRS ‘PRINT IT 
»LIN7P : "TOTAL SEEKS = ' 
WSPOSIT,-(SP) =TOTAL SEEKS 
RO, (SP) [DEVICE TABLE ADDRESS 
PC. $DB2D [CONVERT THE SEEK COUNT 
PC; SSUPRS : INT IT 
IN7M :* TOTAL MISPOS ERR = ' 
$h1SPOCRO) . -(SP)’ STOVAL ERRORS 
PC LINDEC :TYPE IT IN DECIMAL 
IN7S 3" TOTAL SKI,OCYL ERR = ' 
gent ao). -(SP) CONVERT & PRINT IT 
PCL JLI NDEC TYPE IT IN DECIMAL 
AUIS .asun SEE IF HALT ON ERROR - SWITCH 15 SET 


:BR IF 
SWITCH 15 HALT 
PC 


PRINT LINE 8 OF THE ERROR MESSAGE 
: "DIFFERENT ERROR DURING RETRY‘ 


LINE8: DISPLY ,LIN8M 
JSR PC,LINE2 PRINT LINE 2 OF ERROR MESSAGE 
RTS C 
+ by TYPEOUT ROUTINE 
: MOV NUM, ~(SP) PUT THE NUMBER ON THE STACK 
; JSR PC,LINOCT 
: RE TURN 
' INOCT: MOV 2(SP) ,-(SP) :PUT NUMBER _IN PROPER LOCATION ON STACK 
JSR PC ,$SB20 CONVERT THE NUMBER TO OCTAL 
MOV (SP)+,1$ [GET THE ADDRESS OF THE ASCII STRING 
ADD #5.,1$ ADDRESS THE LAST 6 ASCII DIGITS 
DISPLY : TYPE IT 
1$: -WORD 0 ADDRESS 
(SP)+, (SP) CORRECT THE STACK 
RTS PC 2RETURN 


sROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH 
CALL? ZERO SUPRESSION 


LINDEC: 


NUM ,~(SP) PUT THE NUMBER ON THE STACK 

PC,LINDEC 

2(SP) ,-(SP) SET UP STACK FOR CONVERT 

PC, $SR2D :CONVERT IT TO DECIMAL 

PC, $SUPRS : TYPE IT (WITH LEADING ZEROS SUPRESSED) 


le ali RESTORE STACK POINTER 


SEQ 0109 
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‘ 
| 





7 
fads FF EAE ARERR REE EERE ERE 
2299 
Seoe -SBTTL GENERAL SUPPORT SUBROUTINES 
2302 . SF AERA ERE EERE EEE EEE 
2303 
2304 :DECREMENT THE SECTOR-TRACK ADDRESS 
2306 : MOV PB,RO :DPB ADDRESS 
2307 : JSR wt READDR 
2308 ; RETURN 
2310 [ON RETURN THE STACK CONTAINS THE FOLLOWING: 

2311 : 4(SP) = SECTOR ADDRESS 
2312 : 2(SP) = TRACK ADDRESS 
Seiz ; (SP) = CYLINDER ADDRESS 
2315 023176 162706 000006 READDR: SUB #6,SP ;DECREMENT THE STACK POINTER 
2316 023202 016616 000006 MOV 6(SP), (SP) [MOVE THE RETURN ADDR sown THE STACK 
2317 023206 005066 000006 CLR 6(SP) ZCLEAR STACK FOR SECTOR 
2318 023212 005066 000004 CLR 4(SP) [CLEAR STACK FOR TRACK 
2319 023216 116066 002124 000006 MOVB  $RMDA(RO),6(SP) ©; SECTOR ON STACK 
2320 023224 116066 002125 000004 MOVB  $RMDA+1(RO),4(SP) =TRACK ADDRESS 
2321 023232 016066 002152 000002 MOV SRMDC( RO),2(SP) :CYLINDER ADDRESS 
2322 023240 005766 000006 TST 6(SP) SSECTOR O ? 
2323 023244 001403 BEQ 1$ sBRANCH IF SO 
2324 023246 105366 000006 DECB =: 6 (SP) :DECREMENT ONE SECTOR 
2325 023252 000423 BR [BRANCH TO EXIT 
023254 005766 000004 1$ TST 4(SP) ZALSC ON TRACK 0 ? 
327 023260 001406 BEQ $ [BRANCH IF SO 
2328 023262 112766 000037 000006 MOVB #31.,6(SP) [LAST SECTOR 
2329 023270 105366 DECB = & (SPJ :DECREMENT ONE TRACK 
2330 023274 000412 BR 4$ TEXIT 
2331 023276 112766 000006 2$ MOVB #31.,6(SP) [LAST SECTOR 
023 004737 026546 JSR PC,GETLMT :GET ADDRESS LIMITS 
2333 023310 113766 001450 000004 MOVB  TRKLMT,4(SP)  :GET RACK 
2334 023316 005 DEC 2(SP) DECREMENT . ONE CYLINDER COUNT 
2335 023322 000240 4$: NOP : 
2336 023324 000207 RTS PC RETURN 
S350 sROUTINE TO CHECK FOR KW11=-L OR KW11-P CLOCKS 
2340 023326 012737 177777 001312 CKCLK: MOV #-1, CLKFLG ZCLEAR CLOCK AVAILABILITY FLAG 
2341 023334 012737 177777 001310 MOV #~-1,PCLOCK [CLEAR KW11-P CLOCK AVAILABILITY FLAG 
2342 023342 012737 023422 000004 MOV #CKCLK1,ERRVEC SET UP VECTOR FOR CLOCK CHECK 
2343 023350 005037 CLR @WERRVEC+2 SNEW PSW 
2344 023354 005777 155716 TST a$LKCSR :CHECK FOR Kw11-P 
5 023 005037 001312 CLR CLKFLG SSET CLOCK AVAILABILITY FLAG 
2346 023364 005037 001310 CLR PCLOCK *SET KW11-P CLOCK FLAG 
2347 023370 013701 001302 MOV SLPVEC.R1 sKW11-P VECTOR ADDRESS 
2348 023374 012721 024462 MOV ACLOCK,(R1)+ SET UP KW11-P VECTOR 
2349 023400 012711 000300 MOV #300, (R1) *PSW = PRI 6 
2350 023404 012777 174575 155666 MOV #1667. -aSLKCSB [LOAD COUNTER BUFFER WITH 16.67 
2351 023412 012777 000131 155656 MOV #151 ,@$LKCSR SET CLOCK - CNT UP, 10US, CONT INT 
2352 023420 37 BR Lk3 
2353 023422 062706 000004 CKCLK1: ADD be Ce ;RESTORE THE STACK POINTER 


SEQ 0110 


CZRMUAO RMO5/3/2 PERF EXER 
NERAL SUPPORT SUBROUTINE 


2354 023426 
2355 023434 
2356 023440 
2357 023444 
2358 023450 
2359 023454 

3460 
2361 023466 


3470 
2363 023474 
3500 


2410 023636 


012737 
005777 


030526 
003626 
000006 


001550 


7 023644 


002106 
035750 


023666 
001203 


000010 


023644 


023666 
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000004 


155616 


000004 


001550 





SEQ 0111 
MOV #CKCLK2 ,@M#ERRVEC Dgey | ERROR VECTOR TO CHECK FOR KW11=-L 
TST a$iKS :LOOK FOR KW11-L 
CLR CLKFLG SET CLOCK FLAG 
MOV SLLVEC,R1 tKW11=L VECTOR ADDRESS 
MOV ACLOCK, (R1)+ 4 UP KW11=L VECTOR 
MOV #300, (R1) PSW - PRI 6 
MOV #100,a$LKS iSET KW11=-L INTERRUPT 
BR CKCLK3 
CKCLK2: ADD #4 ,SP sRESTORE THE STACK POINTER 
TYPE »NEDCLK ;"P OR L CLOCK MUST BE ON SYSTEM’ 
TST 42 Sey MONITOR CONTROL ? 
BEQ 1$ BR IF NOT 
JMP $GET42 ? ABORT PROGRAM 
1$: HALT 7HA 
JMP START T AGAIN 
CKCLK3: MOV #6, Q4ERRVEC ‘RESTORE THE ERROR VECTOR 
RTS PC 
rhe TO DISPLAY STATISTICS FOR ALL DRIVES ASSIGNED 
; JSR PC,STATPR 
é RETURN 
STATPR: MOV RO,-(SP) 7 SAVE RO 
MOV R4,-(SP) SA VE R4 
TST ASNLST sANY DRIVES ASSIGNED ? 
BEQ 3$ ‘BR IF NOT 
JSR PC, SHDTYP 3; TYPE THE HEADING 
CLR R4 ; CLEAR THE DRIVE INDEX 
1$: ASL R4 FKANGE TO INDEX X WORDS 
MOV BLKADR(R4) ,RO GET THE DRIVE'S BLOCK ADDRESS 
ASR R4 RESTORE R4 
hy ——s /ASNLST a moe DRIVE ASSIGNED ? 
JSR PC,SDETAL PE. THE T PERFORMANCE SUMMARY 
TYPE .SCRLF CR LF 
2s: INC R4 “INCREMENT , THE INDEX 
CMP R448. :FIN ISHED ? 
BNE 1$ IF NO 
3$: MOV (SP)+,R4 ; RESTORE R4 
MOV (SP)+,RO ;RESTORE RO 
RTS PC : TURN 
sy TO TYPE THE PERFORMANCE SUMMARY (STATISTICS) FOR AN INDIVIDUAL 
3 CALL: 
; MOV #DPB,RO ;DPB ADDRESS 
2 JSR PC,SUMARY 
: RETURN 
SUMARY: MOV RO,-(SP) ;SAVE RO 
MOV R4,-(SP) sSAVE R4 
JSR PC,SHDTYP 3 TYPE THE HEADING 
CLR R4 ;CLEAR R4 FOR DRIVE NUMBER 
MO (RO) ,R4 ;DRIVE NUMBER 
JSR PC, SDETAL 3 TYPE THE gp ATISTICS 
MOV (SP)+,R4 REST ORE R 





CZRMUAO RMO5/3/2 PERF EXER 
GENERAL 


SUPPORT SUBROUTINES 


2411 023640 
oie 023642 


432 023666 
2433 023670 
2434 023672 
2435 023676 


012600 
000207 


010246 
0 


024364 
031164 
031164 


000036 


073270 
000070 
031524 
031034 
073270 


035212 
031034 


073270 
000004 
035212 
031034 
073270 
000004 
035212 
031034 
073270 
000004 


035212 
031034 


SHDTYP: 


SDETAL : 
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MOV (SP)+,RO RESTORE RO 
RTS PC RETURN 

4b THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT 
JSR PC,SHDTYP 
RETURN 
JSR PC, $TIME : TYPE THE TIME OF DAY 
JSR RS, TYPRI4 TYPE AT PRIORITY 4 
$CRLF 7 CR=L 
JSR R5,TYPRI4 TYPE THE HEADER 
STATHD : HEADER 
RTS PC RETURN 

ciat THE PERFORMANCE SUMMARY DATE LINE 
MOV ADRIVE ,R4 :DRIVE NUMBER 
MOV ADPB,RO :DPB ADDRESS 
RETURN 
MOV age a :SAVE R2 
MOV :DPB ADDRESS 
ADD WSOPERC, me :FIRST alan tee FIELD 
MOV R4,-(SP) SAVE R4 FOR TYPEOUT 

SI TYPE DRIVE NUMBER 

TYPOS :2GO TYPE--OCTAL ASCII 
-BYTE 2 zz TYPE 2 DIGIT(S) 
-BYTE {ho a ay LEADING ZEROS 
TYPE NKS2 : TYPE 2 BLANKS 
MOV SPASSC (RO) , -(SP) ;PUT PASS COUNT ON THE STACK 
JSR PC.$SB2D :CONVERT IT 
JSR R5,REPLZ TYPE IT 
- WOR 3 2 TYPE 3 DIGITS 
TYPE -BLNKS YPE 2 BLANKS 
MOV R2,~-(SP) ;PUT i ON THE STACK 
JSR PC, $DB2D ; CONVERT 
JSR R5,REPLZ i TYPE SOPERC 
-WOR :TYPE 6 DIGITS 
TYPE -BLNKS2 ;TYPE 2 BLANKS 
ADD #4 ,R2 ; INCREMENT Re 
MOV R2,~(SP) PUT $POSIT ON THE STACK 
JSR PC, $DB2D = CONVERT IT 
JSR R5,REPLZ :TYPE $POSIT 
-WORD 6 STYPE 6 DIGITS 
TYPE -BLNKS2 :TYPE 2 BLANKS 
ADD #4 ,R2 S INCREMENT R2 
MOV R2,-(SP) :PUT STRANS A THE STACK 
JSR PC,$DB2D eet STRAN 
JSR R5,REPLZ IT 
- WOR 10. ‘TYPE 10 DIGITS 
TYPE -BLNKS2 : TYPE 2 BLANKS 
ADD #4 ,R2 ; INCREMENT Re 
MOV R2,-(SP) T $READ ON THE STACK 
JSR PC, $DB2D : CONVERT $SREAD 
JSR vf eREPLZ :TYPE I 
- WOR 10. : TYPE 10 DIGITS 


SEQ O112 





eur ® Bs 
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NERAL SUPPORT SUBROUTINES 


024042 
024046 
2466 024052 
2473 024056 


024152 
2474 024156 
2477 nee les 


2482 024216 
24 


32 
024136 
024220 
024242 
2500 


024244 
024250 
024252 
024260 
024262 





104401 
70 


073271 
000004 
000002 


031524 
031034 


073271 


031524 
031034 


073271 


031524 
031034 


073271 


031524 
031034 


073271 
000056 
000060 
000062 
000064 


000066 
031524 
031034 


001364 
000060 
000060 


001364 
000062 
000062 


023417 


023417 


TYPE -BLNKS1 
ADD #4 ,R2 
ADD 


#2-R2 
MOV (R2)+,=(SP) 
$SB2D 


JSR PC, 

JSR R5,REPLZ 

. WORD ‘. 

TYPE NKS1 
MOV (RO)s. ~(SP) 
JSR PC, $SB2D 
JSR REPLZ 

. WORD 

TYPE NKS1 
MOV (RO) *, ~(SP) 
JSR PC,$SB2D 
JSR RS ,REPLZ 
«WORD 4 

TYPE -BLNKS1 
MOV (R2)+,-(SP) 
JSR PC,$SB2D 


JSR RS -REPLZ 


SUB S$SOFT(RO), 


SUB SHARD (RO). (SP 
SUB $SKI(RO),(SP) : 
SUB $MISPO(RO) , (SP) 


JSR PC,$S820 
JSR R5 ,REPLZ 


MOV (SP)+,R2 
PC 


sROUTINE TO INCREMENT $SOFT 


BLNKS1 :TY 
MOV $TOTAL (RO) ehSP 


3 TYPE 1 BLANK 

INCREMENT R2 

INCREMENT R2 AGAIN 

:PUT $SOFT ON THE STACK 
SSOF T 


PE 
PUT SHARD ON ON THE STACK 
= CONVERT SHARD 
:TYPEOUT SHARD 
Ailes 4 DIGITS 


Y BLANK 
;PUT — Pate STACK 


;PUT SMISPO ON THE STACK 
CONVERT SMISPO 
zTYPEOUT SMISPO 
ZTYPE 4 DIGITS 
1 BLANK 


PE 
CALCULATE NUMBER OF OTHER ERRORS 
;SUBTRACT $SOFT FROM STOTAL 
; SUBTRA 
STOTAL 
; SUBTRACT SMISPO FROM $TOTAL 
= CONVERT *OTHER' COUNT 


YPE IT 
:TYPE 4 DIGITS 
:;POP STACK INTO R2 


s:NOTE: $SOFT WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCSOF: TST BADSEC 
BNE 1$ 
CMP S$SOFT (RO) #9999. 
BHIS 1$ 
INC $SOF T (RO) 
1$: RTS PC 


ROUTINE TO INCREMENT $HARD 


SEE IF BAD TRK/SEC INDICATOR SET 
:BR IF IT'S SET, DON'T INCREMENT COUNT 
es ALREADY AT MAXIMUM ? 


: INCREMENT $SOF T 


sNOTE: $HARD WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCHRD: TST BADSEC 
BN 


1 
CMP SHARD (RO) .#9999.° 
INC SHARD (RO) 


sase IF BAD TRK/SEC INDICATOR SET 
BR IF IT'S SET, DON'T INCR EMENT COUNT 
:1$ SHARD ALREADY AT MAXIMUM ? 


:BR IF IT IS 


: INCREMENT SHARD 


SEQ 0113 


CZRMUAO RMOS/3/2 PERF EXER 
NERAL 





SUPPORT SUBROUT 


024266 
2501 


024270 

024274 

024276 

024304 

024306 

024312 
2502 


024314 
02 


2503 


2522 024452 





000207 


INES 


001364 


001364 


031034 
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023417 


023417 


023417 


1$: RTS 


PC ;RETURN 


:ROUTINE TO INCREMENT $SK1 


s;NOTE: $SKI WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCSKI: TST 
BN 


1$: RTS 


BADSEC iSFE IF BAD TRK/SEC INDICATOR SET 

1$ 7BR IF IT'S SET, DON'T INCREMENT COUNT 
$SK1 (RO) ,#9999. gis $Sk1 ALREADY AT MAXIMUM ? 

$SKI(RO) ; : INCREMENT $SKI 

PC RETURN 


ROUTINE TO INCREMENT $MISPO 


NOTE: S$MISPO WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCMIS: TST 


1$: RTS 


BADSEC :SEE IF BAD TRK/SEC INDICATOR SET 

:BR IF IT'S SET, DON'T INCREMENT COUNT 
$M1SPO(RO) .#9999. IS $m1SP0 ALREADY AT MAXIMUM ? 
$M1iSPO(RO) ; : INCREMENT $MISPO 


sROUTINE TO INCREMENT $TOTAL 


:NOTE: $TOTAL WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCTOT: TST 
BN 


1$: RTS 


BADSEC py IF BAD TRK/SEC INDICATOR SET 


1 :BR IF IT'S SET, DON'T INCREMENT COUNT 
STOTAL (RO) ,#9999. 1S STOTAL ALREADY AT MAXIMUM ? 
$TOTAL (RO) F y INCREMENT $TOTAL 

PC RETURN 


sROUTINE TO TYPE THE TIME 


STIME: TST 
BN 


CLKFLG :CLOCK ON THE SYSTEM ? 
1$ :BR IF NOT 
-SCRLF 2 CR=LF 

27 (SP) [PUT "HOURS" ON THE STACK 
PC,$SB82D ae gee TO DECIMAL 
R5,REPLZ YPE IT 
2 :TYPE 2 DIGITS 


COLON +"; 
MINUTE,-(SP) PUT "MINUTES" ON THE STACK 
PC, $SB2D : CONVERT TO DECIMAL 
R5.REPLZ YPE IT 
2 ‘TYPE p DIGITS 

, COLON tt:! 

SECOND -(SP) | :PUT SECONDS ON THE STACK 


SB2D [CONVERT TO DECIMAL 
R5.REPLZ ‘TYPE IT 


SEQ 0114 





CZRMUAO RMO5/3/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES 


2523 024456 
Sase 024460 


525 
2526 
2527 
2528 024462 
2529 024466 
2530 024470 
2531 024476 

532 


2579 024710 


000002 
000207 


00520 
122715 
0014 
122715 


177777 
001474 


001544 
074567 
000200 
001362 
Det ene 
154300 
074332 


001362 


000124 
000101 
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«WORD 2 
1$: RTS PC 
;CLOCK HANDLER ROUTINE 
CLOCK: DEC SIXTEE 
BNE 1$ 
001374 MOV HZ, SIXTEE 
INC SECOND 
001372 CMP #60. .SECOND 
BNE 1$ 
CLR SECOND 
INC INTRVL+2 
INC MINUTE 
001370 CMP #60. ,MINUTE 
BNE 1$ 
CLR MINUTE 
INC OUR 
001366 CMP #999. , HOUR 
BHIS 1$ 
CLR H 
1$: MOV #20,-(SP) 
JSR PC,RMTMR 
TST INTRVL 
BEQ 2s 
001474 CMP INTRVL, INTRVL#2 ; 
BNE 2s 
001316 MOV #~1,STATIN 
CLR INTRVL+2 
2s: RTI 
rae DECODE ROUTINE 
: MOV #-1,CFLAG 
; JSR PC,KSR 
: RETURN1 
; RE TURN2 
KSR: TST ORDERQ+16 
BEQ KSR1 
TYPE -BUSY 
KSR1: SAVREG 
177776 MOV APR4 PS 
1$: CLR CFLAG 
JSR PC, STIME 
TST a$TkB 
TYPE ~ENTCOM 
RDLIN 
MOV (SP)+,R5 
TST CFLAG 
BNE 11$ 
INC RS 
CMPB #°T, (RS) 
BEQ 7 
CMPB #°A,(R5) 


:TYPE 2 DIGITS 


sr ans THE Vs SECOND COUNTER 
BR _IF A SECOND NOT COUNTED 

4s THE VALUE. 
COUNT THE S SEC OND 
:BR_IF NOT 

ee THE SECOND'S COUNTER 

: COUNT THE + 4 pea SUMMARY INTERVAL 
‘COUNT THE MINU 

AT MAXIMUM ? 


‘BR IF F NOT 

[CLEAR THE MINUTE'S COUNTER 
:COUNT THE HOURS 

:BR IF NOT 

=CLEAR THE HOURS 

[1 MS ON THE STACK 

[DRIVER TIMER ROUTINE 
:DISPLAY T THE PERFORMANCE SUMMARY ? 
:DISPLAY 1 INTERVAL FINISHED ? 


SET PERFORMANCE SUMMARY DISPLAY FLAG 
CLEAR THE PERFORMANCE INTERVAL COUNTER 


:"CFLAG* IS NORMALLY SET BY THE TTY SERVICE 
ROUTINE IN INTERRUPT MODE 


SYSTEM BUSY RETURN 
RETURN AFTER KEYBOARD SERVICED 


zANY OPERATIONS ACTIVE ? 


: "SYSTEM BUSY. 

SAVE THE REGISTERS 
SET PRIORITY TO 4 

CLEAR _THE ‘CONTROL C* FLAG 

: TYPE THE TIME 

SCLEAP ANY GARBAGE IN THE TTY BUFFER 
: "ENT COMMAND’ 


READ THE KEYBOARD 

GET ADDRESS OF INPUT STRING 
CHECK THE CONTROL C FLAG 
SEXIT IF "CONTROL C* ENTERED 
:POINT TO SECOND CHARACTER 
sEQ TOA 'T' ? 


YES 
70 TO AN °A* 





SEQ 0115 


CZRMUAO RMO5/3/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES 


2580 024714 
2581 024716 
2582 024722 
2583 024724 
2584 024730 
2585 024732 
2586 024736 
2587 024744 
2588 024746 


2599 025016 
2600 025020 
2601 025026 


Mror 
VuMiw 
—— 2S 
w= 
MLM 


OONAULWN—O 
Nm 
RKSR 


RRR 
Ssseses 
555 


25142 


2635 025204 
2636 025210 





000067 
000060 
00074 
025574 
000104 
025604 
000123 
025704 
000127 
000001 
026132 
000122 
026162 
000127 
000101 
000001 
000001 


177770 
026144 


074252 
074307 


154010 
000100 
177776 


000101 


073402 
001452 
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177777 
177777 
177777 


177777 
154126 


177777 
177777 
000001 
000067 


000060 
000001 


154000 


030052 


2$: 


3$: 


4$: 


5$: 


ASSIGN: CMPB 


ASGN1: 


2$ 
(R5) ,#'°7 
10$ 
(R5) ,#°0 
10$ 


#*C7,(R5) 
#°T,=1(R5) 
3$ 


PC ,NEWASN 
#°D,=-1(R5) 
4$ 

PC ,DEASGN 
#°S,-1(R5) 
5$ 

PC, SCMND 
#'W,-1(R5) 
#SWO,aSWR 
9$ 

PC ,DATAPK 
#"R,-1(R5) 
10$ 

PC ,REDAPK 
11 
#'W.-1(R5) 
10$ 
#°A,1(R5) 
RS) .#*7 
1(R5) #0 
10$ 
#°C7,1(R5) 
PC, WATPAK 
11$ 

~MSWRO 

is 

_ INVLD 

$ 


a$TKB 
ar! TORAOtES 


PC 


#°A, (RS) 
ASGN2 
(R5) 


ROUTINE TO PROCESS THE ASSIGN REQUEST ('‘T’, 


7R4 
#UNTASN , ASNMSG 
XXDP 


:BR IF IT IS 
:DRIVE it GREATER THAN AN ASCII 7 ? 
Shy ire LESS THAN AN ASCII 0 ? 


Ss 
LEAVE Qh ONLY LOWER 3 BITS IF CHAR NOT ‘A' 


‘BR IF NOT EQ 
ASSIGN DRIVE FOR TEST 
[EQ TO 'D’ ? 
[BR IF NOT EQ 
:DEASSIGN DRIVE 
'EQ TO 'S' 
‘BR IF NOT EQ 
: TYPE STATISTICS 
[EQ TO ‘w" 
‘BR IF NOT 
‘1S SWITCH 6° SET 
[BR IF SET, CAN'T "0 "Ww" COMMAND 
:WRITE A DATA PACK 
[EQ TO 'R' ? 
[BR IF NOT EQ 
READ A DATA PACK 
:WT COMMAND ? 
PALL DRIVES ? 
i GREAT THAN 7 
LESS THAN 0 
= YES 


:CHOP OFF THE HIGHER BITS 
ASSIGN DRIVES WITH WT COMMAND 


_ atone T WRITE WITH SWOO SET’ 
‘TYPE * INVALID COMMAND’ MESSAGE 

: TRY AGAIN 
;RESTORE RO - R5 

:CLEAR_THE TTY BUFFER 

:SET TTY INTERRUPT ENABLE 

SET PRIORITY BACK TO ZERO 

TURN 

*R', OR ‘Ww’ COMMANDS) 
ASSIGN ALL DRIVES? 


3PUT E # IN R4 
2 "DRIVE A ASSIGNED* MESSAGE )faeness 
te ee THIS DEVICE ? 


SEQ 0116 


' 
} 
t 


CZRMUAO RMOS/3/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES 


2637 025212 


2664 
2665 025354 
2666 
2667 025356 
2668 025364 


2694 025464 
2695 025472 
2696 025500 
2697 025504 





001452 


035750 
073515 


035750 
025356 
030026 
001452 


035750 
073515 


035750 
025356 
000007 


030026 


035750 
066070 


002106 
015652 


035634 


026174 
074136 


001203 
026604 
026374 
026700 


027226 
a 


00000 
001320 
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CMPB _XXDP,.Ré {LOADED FROM THIS DRIVE ? 
001550 BICB — ATABIT(R4) ,ASNLST | ;DELETE THE DRIVE FROM THE ASSIGNED LIST 
030052 MOV #LODEV,ASNHISG "DRIVE IS LOAD DEVICE’ MESSAGE ADDRESS 
001550 1$: BITE ATABIT(R4) .ASNLST. :DRIVE ALREADY ASSIGNED ? 
JSR PC, ASGN3 SEE IF DRIVE ON THE SYSTEM 
RTS = PC ; RETURN 
2s: JMP ——ASNERR EXIT ERROR 
ASGN2: CLR = R& START WITH DRIVE 0 
030052 1$: MOV © MUNTASN,ASNMSG ERROR MESSAGE 
TST ——-XXDP LOADED FROM THIS DEVICE ? 
BEQ = $ BR IF NO 
CMPB_XXDP.,R4 :LOADED FROM THIS DRIVE ? 
001550 BICB ATABIT(R4) ,ASNLST ;DELETE THE DRIVE FROM THE ASSIGNED LIST 
030052 - MOV ALODEV,ASNMSG — ; "DRIVE IS LOAD DEVICE’ MESSAGE ADDRESS 
001550 28: BITB = ATABIT(R4),ASNLST ALREADY ASSIGNED ? 
JSR —- PCASGN3 ASSIGN THE DRIVE 
3$: INC —RG INCREMENT DRIVE # 
(MP «RGA? ALL DRIVE CHECKED ? 
BLE =-:1$ :NO 
RTS = PC :YES 
4$: JSR PC, ASNERR ERROR MESSAGE 
BR 3$ TO LOOP 
001550 ASGN3: BITB  ATABIT(R4),ASNLST ;DRIVE ALREADY ASSIGNED ? 
BNE ASGN4 IF IT IS 
MOVB = R4, GENDPB GET DRIVE NUMBER 
ASL = R4 iMAKE _R4 WORD INDEX 
MOV  —- BLKADR(R%&).,RO PUT BLOCK'S ADDR INTO RO 
JSR PC, RECALO ;RECALIBRATE DRIVE 
ASR RG MAKE R4 BYTE INDEX 
TSTB —- DRVSTA(R4) DRIVE AVAILABLE? 
BEQ § ASGN7 :BR IF DRIVE OFFLINE OR NONEXISTENT 
BMI ——_ASGN6 :BR_IF DRIVE UNSAFE 
JSR —- PC, CLRDPB CLEAR BLOCK FOR DRIVE JUST ASSIGNED 
TYPE —_, DRNUM TYPE DRIVE MESSAGE 
Vs RG, = (SP) ::SAVE Ré FOR TYPEQUT 
TYPOS G0, TYBE--OCTAL ASCII 
BYTE 2 {Type 2 piel rcs) 
“BYfE 0 TESUPPRESS EADING ZEROS 
TYPE —_, $CRLF :CR- 
ASL RG MAKE R4 WORD INDEX 
JSR PC, GETID GET DRIVE 1.D. 
JSR PC DRVPRM GET THE DRIVE'S ADDRESS LIMITS 
JSR —-R5.GETADR RETRIEVE BAD SPOT FILE 
BR 23° UNSUCCESSFUL! 
JSR PC, MANTER MANUALLY ENTER BAD SECTOR INFORMATION 
001574 MOV —- BLKADR(R4) ,NEWUNT(R4) ;DPB ADDRESS 
000070 NOV #1 -SPASSC (RO) PRESET PASS COUNT TO 1 


BEQ 2s 


WRITE DATA PACK ? 
BR IF NOT 


SEQ 0117 





| CZRMUAO RMOS/3/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES 





2698 025506 
2699 025514 
2700 025516 
2701 


ooooo 
Nate tattete 


2744 025702 
2745 
2746 


113760 
000207 
012737 
000137 


005037 
000137 


2747 
2748 025704 005004 


25720 
2753 025722 
2754 025730 
2755 025732 
2756 025734 
2757 025740 


001320 
073505 
030026 
035644 


073430 
073451 
073337 
030026 


000001 
035750 
035750 
002106 
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SEQ 0118 
000026 MOVB PACK,$PACK(RO) ;SET READ/WRITE DATA PACK INDICATOR 
2$: ASR R4 sMAKE R4 BYTE INDEX 
ASGN4: RTS PC ; RETURN 
030952 ASGN6: MOV #NOTSAF ,ASNMSG ;'UNSAFE* MESSAGE ADDRESS 
JMP ASNERR :TO ERROR ROUTINE 
ASGN7: TSTB DRVTYP(R4) DRIVE PRESENT? 
BEQ 1$ BR IF NOT 
BPL 2s :BR IF yy OFFLINE 
030052 a ee 4 aed "NOT RMOS/3/2° MSG 
030052 1$: ~y tens mate ADDRESS OF ‘NOT PRESENT’ MSG 
030052 2$: MOV MUNTOFF,ASNMSG ;ADDRESS OF "DRIVE OFFLINE’ MESSAGE 
3$: JMP ASNERR :TO ERROR ROUTINE 
:"T* COMMAND (ROUTINE TO ASSIGN A DRIVE) 
NEWASN: CLR PACK CLEAR ‘W* COMMAND INDICATOR 
JMP ASSIGN 7GO TO THE ASSIGN ROUTINE 
:"D* COMMAND (ROUTINE TO DEASSIGN A DRIVE) 
DEASGN: CLR R4 START WITH DRIVE 0 
MOV #8. ,R3 TER 
CMPB #°A,(R5) DEASSIGN ALL DRIVES ? 
BEQ 1$ IF YES 
MOVB (R5) ,R4 :GET DRIVE NUMBER 
MOV #1,R ET R3 FOR ONE UNIT 
001550 1$: hy ATABIT (RA) VASMLST ry * ASSIGNED ? 
001550 BICB ATABIT(R4),ASNLST ;DELETE THE re FROM THE ASSIGNED LIST 
ASL R4 ;MAKE ADDR INTO A WORD INDEX 
001552 ard ~ ete -DUNIT(R4) ;PUT ADDRESS IN DEASSIGN LIST 
2s: DEC R3 sANY MORE DRIVES ? 
BEQ 4$ BR IF NOT 
ar 
030052 3$: MOV MUNTNOT,ASNMSG ;ADDR OF ‘NOT ASSIGNED’ MESSAGE 
JSR PC,,ASNERR sREPORT IT 
BR 2$ 
4$: RTS PC 
:°S* COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY) 
SCMND: CLR R4 
MOV #8. ,R3 ; COUNTER 
CMPB #°A, (RS) sALL STATISTICS ? 
BEQ 2s : «4 ara 
MOVB (R5) ,R4 :GET DRIVE NUMBER 
001550 B1TB ATABIT(R4) ,ASNLST SEE IF DRIVE ASSIGNED 
BEQ 1$ BR’ IF NOT 
ASL R4 MAKE DRIVE ADDR INTO WORD INDEX 
MOV BLKADR(R4),RO ADDR OF BL 
JSR PC, SUMARY TYPE DRIVE STATISTICS SUMMARY 


2758 025744 
759 
2760 025746 
2761 025754 
2762 025760 
2763 025762 
2764 025766 
2765 025770 


2766 025772 
2767 025776 
2768 


2777 026044 
2778 026052 


026056 


2793 026130 
2794 
2795 


2796 
2797 026132 
2798 026140 
2799 


2801 
2802 026144 
2803 026150 
2804 026156 
2805 


2807 
2808 026162 
2809 026170 
2810 





CZRMUAO RMOS/3/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES 


073360 
030026 


074476 
001334 
074517 


046316 
0635750 


073266 
000012 


074540 


001203 


002166 


177777 
025166 


000001 
177776 
02 


5166 


000001 
025166 
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030052 


026104 
001550 


026104 


001320 


001320 


001320 


BR 10$ ZEXIT 
1$: MOV MUNTNOT,ASNMSG ADDR OF "NOT ASSIGNED’ MSG 

JSR PC ,ASNERR : TYPE ERROR MESSAGE 

BR 10$ TEXIT 
2s: TSTB — ASNLST TANY DRIVE ASSIGNED ? 

BNE 3$ YES 

BR RETURN 
3$: JSR PC,STATPR :TYPE ALL STATISTICS 

TSTB ~— DATE ZSEE IF ‘DATE’ ENTERED 

BEQ 4$ ‘BR IF NOT 

TYPE  ,DATEIS :"DATE: ° 

TYPE {DATE ZTHE OPERATOR ENTERED DATE 
4$: TSTB  OPERID :SEE IF OPERATOR I.D. ENTERED 

BEQ 5$ ‘BR IF NOT 

TYPE ,IDIS : "OPERATOR I.D.: ° 


diy OPERATOR I.D. 
**. 


5$: TYPE ADER L 
DRIVE I.D. FIELD ADDRESS 


LIN 
MOV. - #DRIVEO*SDRVID, af" 


6$: BITB = ATABIT(R4) /ASNLST ZSEE IF DRIVE ASSIGNED 
BEQ 9$ IF NOT ASSIGNED 
MOV R4,-(SP) +S SAVE R4 FOR TYPEOUT 
i: TYPE DRIVE NUMBER 
TYPOS 7GO TYPE SOG TAL ASCII 
.BYTE 2 :3 TYPE 2 DIGIT(S) 
‘BYTE 0 SUPPRESS CEADING ZEROS 
TYPE  ,BLNKS4 :TYPE 4 BLANKS 
TSTB =. BS [SEE IF DRIVE I.D. ENTERED 
7$ [BR IF DRIVE I.D. PRESENT 
TYPE NONE ZTYPE "NONE * 
BR 9s : CONT INUE 
7$: TYPE [TYPE THE DRIVE !.D. 
8$: .WORD 0 ADDRESS OF DRIVE I.D. FIELD HERE 
TYPE  ,$CRLF CR 
9$: DEC R3 :DECREMENT THE COUNTER 
BLE T END 


10$ 
ADD #SRMEC2+2 ,8$ ‘INCREMENT THE MESSAGE FIELD ADDRESS 
INC R4 INCREMENT DRIVE ADDRESS 

6$ > CONT INUE 


BR s 
10$: RTS PC 
:"W* COMMAND (ROUTINE TO WRITE A DATA PACK) 


DATAPK: MOV #~1,PACK SET THE ‘*W* COMMAND INDICATOR 
JMP ASSIGN sASSIGN REQUESTED DRIVE 


: "WT" COMMAND (TO WRITE A PACK AND FOLLOWED BY TEST PACK) 
WATPAK: MOVB 1(R5), (RS) sADJUST DRIVE NUMBER ADDRESS 
MOV #-2,PACK PACK WRITE COMMAND 

JMP ASSIGN ; JUMP TO ASSIGN ROUTINE 
:"R* COMMAND (ROUTINE TO READ A DATA PACK) 


REDAPK: MOV #1 ,PACK :SET THE "READ' INDICATOR 
JMP ASSIGN SASSIGN THE REQUESTED DRIVE 








SEQ 0119 


—— 


CZRMUAO RMOS/3/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES 


026174 010146 
010346 


026200 010446 
026202 010546 
010004 


7 
2858 026374 010346 
2859 026376 010446 
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000024 
000002 
000030 
000020 
000004 


000022 
000024 


000022 


4$: 


+3 "1b TO CLEAR THE DPB FOR THE ASSIGNED DRIVE 


: MOV 
: JSR 
: RE TURN 


#DPB RO 
PC, CLRDPB 


DPB ADDRESS 


RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 


CLRDPB: 


1$: CLR 
2$: CLR 


3$: CLR 


RTS 


MOV 
: JSR 


ROUTINE TO GET 
ALL 


R1,-(SP) 


#2,R3 
5 
#12., 


ASRECO-MINSEC i 


#3 


3$ 
BEGCOD, me (RO) 


2.R4 
#SNEXT-$SREG,R3 
(R4)+ 


2 PUSH R1 ON STACK 
3zPUSH R3 ON STACK 


¢ DRE 

ZADDRESS OF FIRST LOCN TO BE CLEARED 
[NUMBER OF LOCNS TO BE CLEARED 
ZCLEAR THE LOCATION 


:DECREMENT 93 COUNTER 
BR IF NOT FINISHED 

“MOV E THE ADDRESS PAST THE ‘REG* ADDR 

:NUMBER OF LOCNS TO BE CLEARED 


: DECREMENT Po LOCN COUNTER 

7BR IF NOT FINISHED 

MOVE PAST ADDRESS LIMITS 

NUMBER OF LOCNS TO BE CLEARED 
CLEAR A LOCA TION 

;DECREMENT THE COUNTER 

BR IF NOT DONE 
ptt. COMMAND CODE 


BEGCOD, HE ACTUAL OP CODE 
COMTBL (R1) , SCOMND (RO) zs OPERATION CODE 
BEGPAT, SPATTC(RO) sPATTERN CODE 
$PATTC (RO) ;CONVERT CODE TO A TABLE INDEX 
BEGSIZ,$WRDL(RO) ;BEGINNING RECORD SIZE 
ects SWRDM(RO) ;VALUE FOR DATA TRANSFER 

WRDM (RO) sMAKE_IT INTO 2°S COMPLEMENT 
Pose. SSSEC (RO) : INITIAL VALUE OF SECTOR SIZE 
#1, $CODE (RO) ;HEADER ORDER ? 

:BR_IF NOT 

#2, $SSEC(RO) sADD HEADER SIZE TO SECTOR SIZE 
(SP)+,R5 2sPOP STACK INTO R5 
(SP)+,R4 2sPOP STACK INTO R4 
(SP)+,R3 = sPOP STACK INTO R3 
(SP)+,R1 Fe 


;POP_ STACK INTO R1 
RETURN 


ADDRESS LIMITS FROM THE OPERATOR 


#DPB,RO 
PC ,DRVPRM 


:DPB ADDRESS 
CALL ROUTINE 


RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 


DRVPRM: MOV 
MOV 





R3,-(SP) 
R4,~(SP) 


ZSAVE R3 
SAVE R4 


SEQ 0120 


— 


E 10. 
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RAL SUPPORT SUBROUTINES 


2913 026630 005737 001362 : TST cls . ome f . ag ene 7 


ne SEQ 0121 
| 2860 026400 005737 000042 TST a42 ;RUNNING UNDER MONITOR CONTROL | 
| 2861 026404 001002 BNE 1$ ‘BR IF Y 

2862 026406 104401 074377 TYPE /ENTLMT : "ENTER YADDRESSES® 
| 2864 026412 062760 177777 000122 1S: ADD #-1,$F IRST(RO) SEE IF FIRST TIME STARTED | 

2865 026420 103421 BCS “BR IF 

2866 026422 013760 901444 000106 MOV CYLIMT ,MAXCYL (ROS OT OAD MAXIMUM CYLINDER 

2867 026430 005060 000110 CLR MINCYL (RO) ZCLEAR MINIMUM CYLINDER 

2868 026434 004737 02654 JSR PC, GETLMT GET ADDRESS LIMITS 

2869 026440 013760 001450 000112 MOV TRKLMT ,MAXTRK (RO) LOAD MAX! TRACK 

2870 026446 005060 000114 CLR MINTRK (RO) “CLEAR MINIMUM TRACK 

2871 026452 013760 001446 000116 MOV SECLMT ,MAXSEC (RO) sLOAD MAXIMUM SECTOR 

2872 026460 005060 000120 CLR MINSEC (RO) ZCLEAR MINIMUM SECTOR 

2873. 026464 016403- 075460 — 3$: MOV TABLE(R4),R3 = PARAMETER TABLE ADDRESS 

2874 026470 013763 001450 009016 MOV TRKLMT,16(R3)  :LOAD TRACK LIMIT FOR LAST TRACK 

2875 026476 013763 001450 000024 MOV TRKLMT,24(R3) LOAD TRACK LIMIT FOR STARTING TRACK 

2876 026504 005737 000042 TST arse ; UNDER MONITOR CONTROL ? 
| 2877 026510 001002 BNE 4$ BR YES 

2878 026512 004737 027702 JSR PC PARENT THe DRIVE'S PARAMETERS 

2879 026516 116060 000120 000010 4$: MOVB  MINSEC(RO) [SSE (ROD. zINITIAL SECTOR VALUE 

2880 026524 116060 000114 000011 MOVB  MINTRK(RO).$TRK(RO) INITIAL TRACK VALUE 

2881 026532 016060 000110 000012 MOV MINCYL (RO) .$CYL (RO) ; INITIAL CYLINDER VALUE 

2882 026540 012604 MOV (SP)+,R4 SRESTORE R4 

2883 026542 012603 MOV (SP) +,R3 [RESTORE R3 

sone 026544 000207 RTS PC sRETURN 

a4] oo TO GET THE ADDRESS LIMITS FOR THE CURRENT DRIVE TYPE 

+4 : JSR PC,GETLMT CALL ROUTINE 

on ;RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 

2892 026546 GETLMT: 

026546 010146 MOV R1,-(SP) 33PUSH R1 ON STACK 

2893 026550 005001 CLR R1 :START FRESH 

2894 026552 111001 MOVB (RO) ,R1 ;GET DRIVE NUMBER 

2895 026554 012737 000022 001450 MOV #18... TRKLMT TASSUME LAST TRACK ,FOR AN RMOS 

28% 026562 122761 000007 035644 CMPB  =s-« #7, DRVTYP(R1) =: IS DRIVE AN RMOS ? 

2897 026570 001403 BEQ 1 [BR IF YES" 

2898 026572 012737 000004 001450 MOV #4, TRKLMT ;GET LAST TRACK FOR AN RMOS 

2899 026600 1$: 

026600 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

2900 026602 000207 RTS PC RETURN 

5302 | 

2903 ;ROUTINE TO GET THE DRIVE 1.D. FROM THE OPERATOR 

2905 026604 010546 GETID: MOV R5,-(SP) :SAVE_RS5 

2906 026606 005737 000042 TST 42 UNDER MONITOR CONTROL ? 

2907 026612 001039 BNE 2$ “BR F NOT 

2908 026614 005037 001362 1$: CLR CFLAG CLEAR THE "CONTRO, C* FLAG 

3909 026620 104401 074353 TYPE =, ENTDRV : "ENTER DRV I.D. 

2911 026624 104411 7 RDLIN :READ THE ENT 

2912 026626 012605 MOV (SP) +,R5 GET THE ENTRY " ADDRESS 





$312 026636 


026670 
2921 026674 
$358 026676 


34 
2935 026700 
026700 
026702 
026704 


2936 026706 
2937 026712 
2938 026714 
2939 026720 
026722 


2948 64 
2949 026772 
2950 027000 


2951 027006 
2952 027014 
2953 027020 
2954 027024 
2955 027026 
2956 027030 
2957 027034 
2958 027036 
2959 027040 
2960 046 


060 
2964 027062 


010146 
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|GENERAL SUPPORT SUBROUTINES 


000056 


026546 
000124 
000771 
177777 
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CMPB ss (RS) ,#’", :PERIOD ENTERED ? 
BEQ 2$ F YES 
MOVB = (R5)+,$DRVID(RO)” ;STORE THE DRIVE J.D. 
MOVB = (R5) +, SORVID+1 (RO) 
MOVB (R25) +, $DRVID+2(RO) 
MOVB _— (R35) +, SORVID*3(RO) 
MOVB (R35) +, SDRVID+4 (RO) 
MOVB = (R5)+,, - SDRVID+5 (RO) 
2s: MOV (SP) + sRESTORE RS 
RTS PC RETURN 
;ROUTINE TO GET THE ADDRESSES OF ANY BAD SECTORS IN THE DEC 144 
:BAD SECTOR FILE (UP TO A MAX OF 126. FOR MFG PORTION AND 
i126. FOR USR PORTION OF DEC 144 FILE.) 
; MOV #DPB,RO :DPB ADDRESS 
- JSR R5,GETADR 
: RET1 ERROR RET 
; RET2 NORMAL RET 
[RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 
GETADR: 
MOV R1,-(SP) ::PUSH R1 ON STACK 
MOV R2.-(SP) : :PUS H R2 ON STACK 
MOV R3.-(SP) PUSH R3 ON STACK 
JSR PC.GETLMT [GET ADDRESS LIMITS 
MOV RO.R1 [DPB ADDRESS 
ADD #SBDSEC. R1 ADDRESS OF BAD SECTOR TABLE 
1. MOV (SPS :PUSH R1 ON STACK 
MOV Rize: #4>+1 “=(SP5" :2PUSH #<126.*4>4+1 ON STACK 
MOV (SP) ,R2 ZNUMBER OF TOTAL ENTRIES AVAILABLE PLUS TERMINATOR 
1$: MOV #-1,(R1)+ i INITIALIZE ALL LOCS TO -1 
DEC R2 [DECREMENT WORD 
BNE 1$ [BRANCH IF NOT DONE 
MOV (SP) +,R2  sPOP STACK INTO R2 
MOV (SP)+-R1 “POP STACK INTO R1 
MOVB _— (RO), GENDPB [DRIVE NUMBER 
066102 MOV #822. GENDPB+SCYL LAST CYLINDER 
066101 MOVB RKLMT , GENDPB+$TRK °GET LAST TRACK 
066100 MOVB #0 GENDPB+$SEC :GET STARTING SECTOR OF MFG FILE 
066074 MOV #-256. . GENDPB+S$WRDM ZONE SECTOR WORD COUNT 
066072 MOVB  #RDDAT.GENDPB+S$COMND = :READ DATA C 
001270 MOV #8. ,$CDW2 7GET LAST SECTOR OF MFG FILE 
2s: MOV ACYLNDR RS [GET READ BUFFER ADDRESS 
JSR RO,RMOS [READ CURRENT SECTOR 
GENDPB 
BR 2$ WAIT FOR QUE 
3$: TST GENDPB+$TATUS ZREAD. DONE YET ? 
BEQ 3$ [BR IF NO 
BPL 4$ [BR IF NO ERROR, ELSE 
066100 ADD #2,GENDPB+$SEC : INCREMENT NEXT SECTOR TO READ 
066100 C $CDW2, GENDPB+$SEC sWERE ALL SECTORS TRIED ? 
BHIS 2$ BR 
BR 9$ [BR IF UNSUCCESSFUL ON RETRIES 
4$: TST (R3) TARE LSB'S OF SERIAL NUMBER VALID ? 
BMI 7$ ‘BR IF NO 


SEQ 0122 


—_—-——— Ce - 


“CZRMUAO RMOS/3/2 PERF EXER 
|GENERAL SUPPORT SUBROUTINES 


2965 027064 005763 
2966 027070 100427 
2967 027072 062323 


| 
| 
2980 0 
2981 027140 112737 
2982 027146 000722 
2983 027150 005725 
2984 027152 


027 

2992 027210 001374 

2993 027212 0 
027214 005725 

2995 027216 
027216 012603 
027220 01260 
027222 012601 

2996 027224 

2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 


010146 


000002 


177777 


066100 
000036 
000012 
074774 


074716 
073331 


001203 
177777 


001150 
027670 
001362 
074427 
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000012 


001270 
066100 


TST 2(R3) 
BM! 
ADD (R3)+, (R3)+ 
BEQ 7$ 
TST (R3)+ 
BNE 7$ 
TST (R3)+ 
BNE 8$ 

5$: CMP #-1,(R3) 
BEQ 6$ 
MOV (R3)+,(R1)+ 
MOV (R3)+,(R1)+ 
BR 5$ 

6$: CMPB GENDPB+$SEC ,410. 
BHIS 12$ 
MOV #30. .$CDW2 
MOVB #10. .GENDPB+$SEC” 
BR 2$ 

7$ TST (R5)+ 

8$ TYPE »MERR2 
BR $ 

9$: TYPE »MERR1 

10$: TYPE © ~UNTMSG 
MOV (RO) ,-(SP) 
TYPOS 
-BYTE 2 
-BYTE 0O 
TYPE  SCRLF 

11$: MOV #-1,(R1)+ 
DEC R2 
BNE 11$ 
BR 13$ 

12$: TST (R5)+ 

13$: 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
RTS R5 

;ROUTINE TO 

CALL 

3 MOV #DPB,RO 

3 JSR PC ,MANTER 


7 ARE wy OF SERIAL NUMBER VALID ? 
SERIAL NUMBER ZERO ? 

Ag WORD ALL 0°S ? 

a ALL 0'S ? (ALIGNMENT PACK ?) 
NEXT WORD A TERMINATOR ? 

IF YES 

ORE BAD CYLINDER ADDRESS 

ORE BAD TRK/SEC ADDRESS 

a BAD FILE DONE YET ? 


GET LAST SECTOR OF USR BAD SECTOR FILE 


tad toy Pt tet ty P 
mm De le Ye 


ae 


GET STARTING SECTOR OF USR BAD SECTOR FILE 


:0K TO USE PACK ANYWAY 
‘INVALID FILE STRUCTURE 


tn bale RETRIEVE BAD SPOT FILE 


RIV 
: : SAVE (RO) FOR TYPEOUT 
32GO_ TYPE~-OCTAL ASCII 
ites 2 DIGIT(S) 
~~ LEADING ZEROS 


S INITIALIZE ALL LOCS TO -1 

;DECREMENT WORD CTR 
BRANCH IF NOT DONE 

ERROR RETURN 

;ADJUST FOR NORMALRETURN 


3:POP STACK INTO R3 
:2POP STACK INTO R2 
4 STACK INTO R1 


ENTER BAD SECTOR INFORMATION MANUALLY 


:DPB ADDRESS 
CALL ROUTINE 


[RO = DPB ADDRESS BEFORE CALLING THE ROUTINE 


MANTER: 


1$: CLR 





R1,-(SP) 


:2PUSH R1 ON STACK 
3=PUSH R2 ON STACK 


;RUNNING UNDER AUTO MODE ? 
Phd NO 


-_ EXIT 
CLEAR THE CONTROL-C FLAG 
MESSAGE TO ENTER... 


SEQ 0123 


| CZRMUAO RMOS/3/2 PERF EXER 
GENERAL SUPPORT SUBROUTINES 


| 
| 





27264 
0 


3035 027362 
3036 027366 
3037 027372 
3038 027374 
3039 027376 
3040 


S' 
012704 
012701 





000124 
000374 
177777 
000004 


075040 


177777 
075072 
177777 


075216 


001362 


177777 
177777 


001444 
031366 


074546 


177777 


177777 
075101 
177777 


075216 


001362 


001450 
031366 
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000002 


000002 


2$: 


3$: 
4$: 


5$: 
6$: 


7$: 


8$: 
9$: 


10$: 
11$: 


#SBDSEC,R4 
RO,R 

a<i26, 12> R1 
f-1 

$ 

#4 RG 

R1 

2$ 

MSFULL 


21$ 


R1,-(SP) 


#-1 ,-(SP) 
2 SLASH 


(SP)+,R1 
CFLAG 

7$ 
(SP)+,R4 
(SP)+,R1 
#-1,(R4)+ 
#-1,(R4)+ 
R1 


6$ 
1$ 


CYLIMT ,R2 
R5,CK.DIG 


-BADENT 
4$ 


R2,(R4) 
-1,2(R4) 


R2, (R4) 
#-1 — 
,MSGTR 

he] OSP) 


- SLASH 


(SP)+,R1 
CFLAG 

5$ 
TRKLMT ,R2 
R5,CK.DIG 


: INDEX VALUE OF TABLE ADDRESS 
: TABLE STARTING ADDRESS 

OTAL BAD SPOTS ALLOWED 
‘ENTRY IN THE TABLE ? 
BRANCH IF SO 
sADJUST THE TABLE ENTRY POINTER 
:DECREMENT THE BAD SECTOR COUNT 
3BR_IF TO NEXT ENTRIES POSITION 
ha} "BAD SPOT TABLE IS FULL‘ 


;THE COUNTER AND FIRST 
SENTRY POINTER PAIR 
:RESET CY CYLINDER TO -1 

+; SAVE AL FOR TYPEOUT 

i £60. TYPE~>DECIMAL ASCII WITH SIGN 


READ IN THE BAD SPOTS 
READ _IN TEXT ADDRESS 
;CONTROL=C ENTERED ? 


BRANCH IF NOT 

RETRIEVE THE FIRST ENTRY POINTER 
RETRIEVE THE SPOT COUNT 

RESET THE TABLE 


‘DONE WITH TABLE YET ? 
BR IF NO 
START AGAIN 


UPPER LIMIT OF INPUT 

CHECK THE DIGIT(S) 

; CARRIAGE RETURN ONLY ENTERED 
PERIOD ONLY ENTERED 

ILLEGAL INPUT 

; TERMINATED WITH A CARRIAGE RETURN 


SENTER CYLINDER ADDRESS 
RESET TRACK AND SECTOR FIELD 


ENTER CYLINDER ADDRESS 


;RESET ey AND SECTOR FIELDS TO -1 


iTY YPE ° 
£4.60. TYPE~-DECIMAL ASCII WITH SIGN 


READ IN THE BAD SPOTS 
sREAD_IN TEXT ADDRESS 
Slt ENTERED ? 


:BR Y 
UPPER LIMIT OF INPUT 
: CHECK THE DIGIT(S) 


SEQ 0124 


| CZRMUAO RMO5/3/2 PERF EXER 
UBROUT INES 


GENE 





NERAL SUPPORT 
027514 


76 
3085 027700 
3086 
3087 
3088 
3089 
3090 


3091 
3092 027702 
3093 027704 
3094 027710 


3095 027714 
3096 027716 


S 
027550 
027664 


001442 
104401 


074546 
000003 
000003 
177777 
075110 
177777 


075216 


001362 
001446 
031366 


074546 
000002 
000002 


001362 
027720 


110 
MACRO V03.01 11=APR-80 14:52:06 PAGE 9-56 


000002 


12$: 
138: 
14$: 
15$: 


16$: 
17$: 
18$: 
19$: 


20$: 
21$: 


RTS 


MOV 
JSR 


-BADENT 
11$ 
R2,3(R4) 
R2,3(R4) 
#=1,2(R4) 
-MSGSEC 
#-1,-(SP) 
» SLASH 
(SP)+,R1 
CFLAG 

5$ 

SECLMT ,R2 
R5,CK.DIG 


»~BADENT 
R2,2(R4) 
20$ 
R2,2(R4) 


#4 ,SP 


PARAMETER ENTRY ROUTINE 
ALL 


#ADR ,R3 
PC,,PARENT 


R3,~(SP) 
CFLAG 
(R3)+,3$ 
9$ 


+ CARRIAGE RETURN ONLY ENTERED 
PERIOD ONLY ENTERED 


ZILLEGAL INPUT 
; TERMINATED rb A CARRIAGE RETURN 
TERMINATED WITH A", 


: AGAIN. 
TENTER TRACK ADDRESS AND 
TENTER TRACK ADDRESS 
;RESET SECTOR TO -1 
[TYPE ‘SECTOR' 


7SAVE #-1 FOR TYPEOUT 
ia fot Xo ASCII WITH SIGN 


{READ IN IN THE BAD SPOTS 
TREAD IN TEXT ADDRESS” 
ZCONTROL-C ENTERED ? 


PERIOD ONLY ENTERED 
ILLEGAL _INPU 
; TERMINATED oe A CARRIAGE RETURN 
TERMINATED WITH A‘ 

7 TERMINATED WITH A ‘'."* 

;TYPE BAD ENTRY MESSAGE 

SAND TRY AGAIN 

;ENTER SECTOR ADDRESS AND 


2 EX! 
SENTER SECTOR ADDRESS 


MORE ENTRY ? 

BRANCH IF EXHAUSTED 

sADJUST FOR THE NEXT TABLE ENTRY 
sENTER NEXT SPOT ADDRESS 
sRESTORE STACK 


33POP STACK INTO R4 
:<POP STACK INTO R3 
2sPOP STACK INTO R2 
siree STACK INTO R1 
sEXIT 

PARAMETER TABLE ADDRESS 
GET THE PARAMETERS 


SAVE THE PARAMETER yee ADDRESS 
ZCLEAR THE ‘CONTROL C* FLAG 
; ADDRES TER 


SEQ 0125 


a 


“CZRMUAO ap tat he PERF EXER 
T SUBROUTINES 


| 
| 
| 
} 





|GENERAL S$ 


WWNWINANWAG 
ad od od od od 


27774 


SSREEEEES 


ed ed ad a ed cd ed ed cd ed 
Mr 
#% 


Ee ee ee ee ee ee ee ee Pe ee ee 
SSmNanRwv=oS 


WNWWNAWWWANWWNWANWAWW 
Nm 
—_ 


no pe er BeBe oe pe beh | 


WWIWNIWNWW 





075216 


001362 
031366 


074546 
000006 


001362 


001203 
073327 
073331 


035750 001550 


3$: 


5$: 
6$: 


7$: 
8$: 


9$: 
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s ADDRESS e PARAMETER NAME TEXT 
7 MAX TER VALUE 


(R3)+,R2 
(R3)+,R5 s ADDRESS OF PARAMETER 
(R5) ,=(SP) oT VPE a VALUE OF PARAMETER 
suse iy’ , THE CURRENT VALUE OF THE PARAMETER 
‘READ THE KEYBOARD 
(SP)+,R1 + INPUT ASCII STRING — 
CFLAG a C* ENTERED 
8$ TBR F IT WAS 
R5,CK.DIG CHECK THE DIGIT 
; CARRIAGE RETURN. ONLY ENTERED 
PERIOD ONLY ENTER 
7 ILLE INPUT 
: TERMINATED nbs A CARRIAGE RETURN 
TERMINATED WITH A‘ 
7 TERMINATED WITH A ‘’."' 
R2,(R5) SMOVE NEW VALUE TO PARAMETER LOCATION 
1$ 2GET MORE PARAMETERS 
-BADENT ;*BAD ENTRY’ 
#6,R3 :DECREMENT THE TABLE POINTER 
R2,(R5) NEW VALUE 
9$ sEXIT 
CFLAG CLEAR THE ‘CONTROL C° FLAG 
(SP) ,R3 RELOAD THE PARAMETER TABLE ADDRESS 
1$ TRY AGAIN 
(SP) + [CORRECT THE STACK POINTER 
PC RETURN 


— ASSIGN/DEASSIGN ERROR MESSAGE 


ASNERR : 


ASNMSG: 


DROP: 


MOV 
JSR 
RETURN 
TYPE 
T 


AMESADR,ASNMSG ;ERROR MESSAGE ADDRESS 

PC ,ASNERR 

- SCRLF > CR-LF 

,QUES T. 

-UNTMSG : TYPE ‘DRIVE’ 

R4,-(SP) 2:SAVE R4 FOR TYPEOUT 
hg DRIVE NUMBER 

:GO TYPE--OCTAL ASCII 

2 33 TYPE 2 DIGIT(S) 

0 SUPPRESS LEADING ZEROS 
: TYPE SPECIFIC ME SSAGE 

0 ;MESSAGE ADDRESS 

PC 

IF A FATAL ERROR OCCURS 

PC ,DROP 


R CLEAR R4 FOR DRIVE NUMBER 

(RO) ,R4 sMOVE DRIVE NUMBER TO R4 
ATABIT(R4),ASNLST ;REMOVE DRIVE FROM ASSIGNED LIST 
R4 sMAKE DRIVE NUMBER INTO A TABLE INDEX 


SEQ 0126 





nee mae ae, Me 
| 





3144 030072 


1 
1 
0301 
1 
; 


3157 030150 
3158 
3159 
3160 
3161 Oe ae 
3162 030160 


F Sake ap tat PERF EXER 
UBROUT INES 


001552 
001203 
074011 


074064 
073331 


001550 
000042 


030526 


000020 
001470 
030056 


001512 
000054 


000052 


000044 
000042 


001203 
074045 
000070 
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150774 
000056 


001456 


001454 


001462 


001460 


MOV RO, DUNIT(R4) 7PUT DRIVE IN DROP LIST 
-$CRLF 


TYPE . DROPNG sTYPE "FATAL OR EXCESSIVE ERRORS' 
TYPE -MSGON :TYPE ‘ON’ 
TYPE -UNTMSG TYPE ‘DRIVE’ 
ASR R4 DRIVE NUMBER 
MOV R4,-(SP) 7eSAVE R4 FOR TYPEOUT 
lg DRIVE NUMBER 
TYPOS GO TYPE--OCTAL ASCII 
BYTE 2 ii TYPE 2 DIGIT(S) 
-BYTE 0 ; SUPPRESS LEADING ZEROS 
Mog tes ;MORE DRIVES ACTIVE 
TST ase ANY MONITOR ? 
BEQ 1$ :NO 
TST (SP) + ;CLEAR STACK 
8 i. ine :GIVE CONTROL TO MONITOR 


sROUTINE TO DEASSIGN DRIVE IF ERRORS BECOMES EXCESSIVE 


ABNRML: BIT #SWO04 ,aSWR sSEE IF SWITCH 4 SET 
E 1$ ‘BR IF IT'S SET 
CMP MAXER,STOTAL (RO) jor TOTAL ERROR VALUE 
BHIS 1$ :BR F ERRORS DO NOT EXCEED MAX 
JMP DROP ;DEASSING THE DRIVE 
1$: RTS PC RETURN 
;ROUTINE TO CHECK FOR END OF PASS AND END OF TEST 
.-SBTTL END OF PASS ROUTINE 
FEAR 
« & INCREMENT THE PASS NUMBER ($PASS) 
:*I1F THERES A y ged GO TO IT 
:*IF THERE ISN'T JUMP TO FISK 
SEOP: 
Ma pes! 7 END OF oy DETERMINED BY SEEKS OR WORDS ? 
CMP SREAD+2(RO), ENDCON+2 CHECK MSW OF WORDS READ COUNT 
BHI pore ;BR IF MSW GREATER THAN LIMIT 
BLO EOP ;BR IF MSW LESS THAN LIMIT 
CMP SREAD (RO) -ENDCON® ;CHECK LSW AGAINST LIMIT 
BHIS EOP2 BR IF EQUAL OR GREATER 
BR EOPX sEXIT 
EOP1: CMP erage toe ene -ENDSEK+2 ;CHECK MSW OF SEEK COUNT 
BHI ds BR IF MSW GREATER THAN LIMIT 
BLO sEXIT IF MSW LESS THAN LIMIT 
CMP $PO317 RO), ENDSEK ;CHECK LSW OF SEEK COUNT 
BLO sEXIT IF LSW LESS THAN LIMIT 
EOP2: TYPE ,SCRLF 7 CR-LF 
TYPE ENDPAS SEND OF PASS FOR THE D 


MOV $PASSC(RO).-(SP)* 


IVE 
22 SAVE SPASSC (RO) FOR TYPEOUT 


SEQ 0127 





CZRMUAO_RMOS/3/2 * EXER 
END OF PASS ROUTI 





000 
104401 


001346 
074064 
073331 
001346 


001203 
000020 150624 
000070 001464 
074071 


000070 


035750 001550 


001552 
001550 


001216 
001214 
100000 001214 


001214 
100000 001214 


1$: 


2$: 


3$: 


EOPX: 


SEOPCT: 


SENDCT: 





(RO) ,UNIT 
-MSGON 
-UNTMSG 
UNIT ,=(SP) 
2 

0 

-SCRLF 

+ ‘eaten 


L 10 
MACRO V03.01 11-APR~80 14:52:06 PAGE 9-59 


;;GO_ TYPE=-DECIMAL ASCII WITH SIGN 
SBE On THE DRIVE NUMBER 


3 SAVE UNIT FOR TYPEOUT 


3 I S$) 
—" LEADING ZEROS 


TYPE END OF TEST MESSAGE ? 


;BR I 
eins -PASCNT ++ IF AT END OF TEST 


° SG 
UNIT ,-(SP) 
2 

0 

3$ 

PC, SUMARY 


SPassc (RO) 


TYPE. ‘END OF TEST" 
YPE ‘FOR’ 
"DRIVE * 


4 UNIT FOR rT 


; S 
2 SUPPRESS LEADING ZEROS 
:DEASSIGN THE DRIVE 


:TYPE THE DRIVE'S STATISTICS SUMMARY 

SAVE R3 

7SAVE R4 

:DRIVE'S BLOCK ADDRESS 

z;ADD THE STARTING ADDR OF SECTIONS TO CLEAR 


NUMBER OF LOCNS TO BE CLEARED 
; (ERROR wa tater NOT CLEARED) 


>CLEAR THE LOCN 

; DECREMENT THE LOCATION COUNTER 
IF MORE TO GO 

SRESTORE R4 


sRESTORE R3 
: 1 ana THE PASS COUNT 


CLEAR R4& FOR DRIVE NUMBER 


(RO) ,R4 zMOVE DRIVE NUMBER 
ATABIT(R4),ASNLST ;DELETE DRIVE FROM ASSIGNED LIST 
;MAKE DRIVE NUMBER INTO 


RO,DUNIT(R4) 
ASNLST 

EOPX 

SDEVCT 

$SPASS 
2100000. SPASS 
$PASS 
#100000, $PASS 
(PC)+ 


$DOAGN 
gPt)9 APC 3* 


TABLE INDEX 
PUT BLOCK ADDRESS INTO DROP LIST 
ZALL Pe te ae DESIGNED ? 


; INCREMENT DEVICE COUNT 
2 INCR EMENT THE PASS NUMBER FOR APT 
4 at NUMBER 


# INCREMENT ep PASS NUMBER 
ie Fey a ALLOW A NEG. NUMBER 


77 YES 
7ZRESTORE COUNTER 


pera | ees OT oe 
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END OF PASS ROUTINE SEQ 0129 


030526 013700 000042 $GET42: MOV a#42,R0 33GET MONITOR ADDRESS 

030532 001405 BEQ SDOAGN ;3BRANCH IF NO MONITOR 

030534 000005 RESET 3:CLEAR THE WORLD 

030536 004710 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 

30540 000240 NOP sz SAVE 

030542 000240 NOP 33FOR 

030544 000240 NOP 33ACT11 

030546 $DOAGN: 

030546 000137 JMP a(PC)+ 7 RETURN 

030550 030552 SRTNAD: .WORD FISK 
3242 030552 005237 001212 FISK: INC STESTN ; INCREMENT THE TEST NUMBER IN THE MAIL BOX 
ser 030556 000137 006260 JMP MAIN1 ;RETURN TO LOOP 
oH , ae TO GET THE REMAINDER OF THE RANDOM NUMBER 

’ L 

3247 5 MOV NUMBER ,R5 :DIVISOR INTO RS 
3248 ; JSR PC,GETREM 
a4 ; RETURN sREMAINDER IS IN RS 
3251 030562 013746 035114 GETREM: MOV SLONUM,-(SP) s STORE a" NUMBER ON THE STACK FOR DIVIDE 
3252 030566 013746 035112 MOV SHINUM,~(SP) SUPPER ART 
3253 030572 010546 MOV R5,-(SP) sPUT THE DIVISOR ONTO THE STACK 
3254 030574 004737 030610 JSR PC,LINKDV :DIVIDE THE RANDOM NUMBERS 
3255 030600 012605 MOV (SP)+,R5 :PUT THE REMAINDER INTO R5 
3256 030602 005726 TST (SP) + ADJUST THE STACK POINTER 
3257 030604 000240 NOP ;FOR DEBUGGING HALT 
aso8 030606 000207 RTS PC 
3260 ;LINK ROUTINE TO THE DIVISION UTILITY SUBROUTINE 
3261 ; THIS ROUTINE ALLOWS THE ‘SYSMAC' DIVIDE ROUTINE 
3568 ; CALLING SEQUENCE TO BE USED 
3264 030610 104412 LINKDV: SAVREG : STORE RO - RS 
3265 030612 016605 000026 MOV 26(SP). R5 VISOR 
3266 030616 005004 CLR SOTHER DIVISOR WORD 
3267 030620 016602 000030 MOV 3015p). R2 [UPPER DIVIDEND WORD 
3268 030624 016603 000032 MOV 32(SP) ,R3 ;LOWER DIVIDEND WORD 
3269 030630 005000 CLR - RO ;CLEAR OTHER DIVIDEND REGISTERS 
3270 030632 005001 CLR R1 
3271 030634 004737 030656 JSR PC,.M.DPID :GO TO THE DIVIDE ROUTINE 
3272 030640 010166 000030 MOV R1,30(SP) [REMAINDER ON THE STACK 
3273 030644 010366 000032 MOV R3,32(SP) SQUOTIENT ON THE STACK 
3274 030650 104413 RESREG sRESTORE RO - RS 
3275 030652 012616 MOV (SP)+, (SP) ‘MOVE RETURN UP THE STACK 
a509 030654 000207 RTS PC 
3278 : DIVISION UTILITY SUBROUTINE 
3279 : RO-R1-R2-R3=DIVIDEND 
3280 : R4-R5=DIVIS 
3281 PF; RO-R1=REMAINDER AFTER DIVISION 
3282 ; R2-R3=QUOTIENT AFTER DIVISION 
3283 3 ENTER WITH JSR PC,M.DPID 
3286 030656 012746 000040 M.DPID: MOV #40,-(SP) a 8 FOR DIVISION CYCLES 
3287 030662 010446 MOV R4,-(SP) 
3288 030664 010546 MOV R5,-(SP) ‘tou ORDER DIVISOR TO THE STACK 





c ey Roe 
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END OF PASS ROUT! 


:FORM NEGATIVE 
VERSION OF THE DIVISOR 


3345 031054 


010046 
012746 
162516 
016600 
122710 
001004 


000002 
000002 


000002 


000002 


000010 


000012 


000006 
000060 





M.DP4O: 


M.DP41: 


M.DP42: 


M.DP44: 


M.DP50: ADD 


a 

M.DP41 
asP 
2(SP) ,R1 
RO 


asP : I 
: (SP) ,RO;<- 


P42 


PERFORM THE INITIAL SUBTRACTION 


:1F CARRY THEN OVERFLOW HAS OCCURRED 
:THIS IS A LONGER LASTING CARRY BIT 


:TEST ‘'CARRY'' INDICATOR 
2 IF NO “‘CARRY'' THEN ADD ELSE SUBTRACT 
CLEAR UP FOR NEXT TIME 


sADD -(DIVISOR) 
3SET *'CARRY’ 


sADE +(DIVISOR) 
:SET *'CARRY'’ 


:SET *'CARRY** 
: TEST THE UPDATE INDICATOR 


:IF ZERO FORGET IT 

NO CARRY POSSIBLE HERE 
:DECREMENT COUNTER 
BRANCH IF MORE TO DO 


zsADJUST STACK BY 4 WORDS 


77 "hee TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 
sADDRESS OF NUMBER (IN ASCII) 
:"N" IS NUMBER OF DIGITS TO BE TYPED 


REPLZ: 


1$: 


MADR, ~(SP) 
RS REPLE 


RO,-(SP) 
#10. ,=(SP) 


AR5)+, (SP) 


6(SP) >RO 
#°0,(RO) 
2s 


:SAVE RO 
MAX 


IMUM NUMBER OF pists TO BE TYPED 
;SUBTACT DIGITS TO ~ INDEX, 
ADDRESS OF NUMBER 


RO 
BYTE EQ TO ASCII *9° ? 
BR IF NOT" 


SEQ 0130 


CZRMUAO RMOS5/3/2 + al EXER 
END OF PASS ROUTI 


3346 0310 
3347 031 
3348 


e 


112710 000040 
005200 


FES 


000771 
105710 
001003 


ess 
Ng 


werent 031114 


tt ad aad ad ed ed 
SaRnsS 
" 
® 
, 
oO 


Nm 
Nm 


24 

€8 016600 000004 
34 03 

36 122720 000060 


300 
46 010037 031154 


164 013746 177776 
31170 012737 000200 

176 012537 031206 
004737 032606 


5 
3396 031212 032777 020000 
001004 
3398 031222 005037 177776 
000137 032606 
3400 031232 062716 
on 031236 000002 
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177776 


147734 


2$: 


0 000060 
016637 000006 031114 38: 


4$: 


; TYPE NUMERICAL 


37 CALL 
é MOV ANUMADR , = (SP) 
; JSR PC, $SUPRS 
SSUPRS: MOV RO,-(SP) 
MOV 4(§P) -RO 
1$: TSTB (RO) 
BEQ 2s 
CMPB #'O,(RO)+ 
BEQ 1$ 
2$: DEC RO 
MOV RO,3$ 
DISPLY 
3$: ‘ »p @§ 
MOV (SP)+,RO 
MOV (SP)+, (SP) 
RTS PC 
sROUTINE TO TYPE AT PRIORITY 4 
TYPRI4: MOV @APS ,-(SP) 
MOV #200, a4PS 
MOV (R5)+,1$ 
JSR PC, STYPE 
1$: -WORD 0 
RTS RS 
sROUTINE TO TYPE ERRORS 
7 CALL 
é DISPLY 
: MESADR 
; RETURN 
SDSPLY: BIT #B1T13,aSWR 
BNE 1$ 
CLR ars 
JMP $TYPE 
1$: ADD #2, (SP) 
RTI 


#40, (RO) 
R 


0 

(SP)+,RO 
(SP) +, (SP) 
R5 


sREPLACE THE ZERO WITH A SPACE 

5 gy B THE = Fon ADDRESS 

GO BACK LOOK FOR MORE LEADING ZEROS 
SEE 1F Eno BYTE TERMINATOR 


:BACKUP STRING POINTER 
:PUT A ZERO BACK IN 
PUT ADDRESS IN LOCATION FOR TYPEOUT 
BEGINNING OF SIGNIFICANT DIGITS 

THE NUMBER 


ORE R 
:MOV E RETURN ADDRESS 
URN 


ASCIZ STRING SUPRESS LEADING ZEROS 


FIRST ADDRESS OF ASCIZ STRING 


;SAVE RO 
PICKUP THE POINTER 
; TERMINATOR ? 


BR IF YES 
71S THIS AN ASCII ‘O° ? 
BR IF YES 

:BACKUP BY ‘1° 

: SAVE Sater TYPING 


ZASCIZ POINTER GOES HERE 
RESTORE THE STACK 
; RETURN 


SAVE THE PRESENT STATUS 
CHANGE THE PRIORITY TO 4 
ZME SSAGE ADDRESS 


THE MESSAGE 
[MESSAGE ADDRESS GOES HERE 
RETURN 


Py 


s:MUST DEFINED IN ‘TRAP’ TABLE 
zADDRESS OF MESSAGE 


Fp A TYPEOUT ? 


>SET PRIORITY TO ZERO 
: TYPE THE MESSAGE 

Z INCREMENT THE RETURN 
RETURN 


an 


%403 
% 
3405 


i 
SRIEAR 


4 SS 


FEEKELELEL ELE LE 
WBDNAOULSWN—O 
oO oO 


3421 


N28 


3450 


EERE YES 
SBNRARGS 


IWIWWNIWAWWNWG 

— 

RA 

ORNS 
SNSnSo 

—WOh =n - 


Ooooooooo 


oNNNANN 


3 


CZRMUAO RMOS/3/2 + 9 EXER 
END OF PASS ROUTI 


000060 


000067 


177770 


000060 
000071 


000060 


000054 
000056 
031266 
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SEQ 0132 

;THIS ROUTINE IS USED TO CHECK IF AN 
ASCII CHARACTER IS A DIGIT BETWEEN 0 AND 7. 
: MOV R1 ZADDRESS OF ASCII CHARACTER 
: JSR ae ce oct [CHECK THE CHARACTER 
: RETURN1 CHARACTER IS NOT BETWEEN 0-7 
: RE TURN2 :CHARACTER IS IN R2 A 
: SOCTAL DIGIT 
CK.OCT: CMPB (R11), #0 ;LESS THAN /ERO? 

BLO 1 [YES == BRANCH 

CPB (RI) .#°7 i GREATER THAN SEVEN? 

MOVB = (R1),R2 GET THE CHARACTER 

BIC #°C7_R2 SSTRIP AWAY THE ASCII 

TST (R5)+ SADJUST FOR RETURN 
1$: RTS RS RETURN 


3 THIS ROUTINE IS USED TO CHECK AN ASCII yor 


ZAND DETERMINE IF IT IS A DIGIT BETWEEN 0 AND 9 
: MOV #ADR,R1 sADDRESS OF ASCII CHARACTER 
: JSR R5,CX.DEC >CHECK THE CHARACTER 
; RETURN1 :NOT BETWEEN 0 AND 9 
; RETURN2 TWEEN 0 AND 
: :Re = DIGIT 
CK.DEC: CMPB (R1) ,4'°0O LESS THAN ZERO? 
BLO 1 sYES < CH 
CMPB (R1) ,#'9 : GREATER THAN NINE? 
BHI 1$ YES == BRANCH 
MOVB (R1) ,R2 [GET THE CHARACTER 
BIC #°0,R2 ZSTRIP AWAY THE ASCII 
TST (R5)+ ADJUST FOR RETURN 
1$: RTS R5 RETURN 


:THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
:DETERMINE WHAT IT IS. 


: MOV #ADR,R1 sADDRESS OF ASCII CHARACTER 
; JSR R5,CK.CHR CHECK CHARACTER 
: RETURN ADR1 [UNKNOWN CHARACTER 
: RETURN ADR2 s CARRIAGE RETURN * (R1)=ADR+1 
: RETURN ADR3 [COMMA * (R1)=ADR+1 
: RETURN ADR4 PERIOD * (R1)=ADR+1 
: RETURN ADRS :DIGIT BETWEEN 0 AND 7. 
: RETURN ADR6 DIGIT BETWEEN 8 AND 9. 
: zR2 = DIGIT * (R1)=ADR+1 
CK.CHR: TSTB (R1) z""CARRIAGE RETURN’ *? 
BEQ 3$ 7YES == BRANCH 
CMPB (R1),4', ‘?. 7 
BEQ $ :YES == BRANCH 
CMPB (R1) 4°. ;‘ PERIOD’? 
BEQ 1 ES == BRANCH 


$ iY 
JSR R5,CK.DEC ;'DIGIT’? 
BR 4$ 





oe ae 


CZRMUAO ww gt 4 *» EXER 
END OF PASS ROUTI 


3460 031342 004537 031240 

3461 031346 005725 

3462 031350 005725 

3463 031352 005725 

3464 031354 005725 

3465 031356 005725 

3466 031360 005201 

3467 031362 011505 

3468 031364 205 

3469 

3470 

3471 

3472 

3473 

3474 

3475 

3476 

3477 

3478 

3479 

3480 

3481 

3482 

3483 031366 010446 

3484 031370 010346 

3485 oe 6 010246 

3487 031376 005003 

3488 031400 005004 

3489 031402 004537 031314 
031406 031502 


3496 031440 
3497 031442 37 031314 
031446 


3504 031476 
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JSR R5,CK.OCT 
TST (R5)+ 
TST (R5)+ 

1$ TST (RS) + 

2$ TST (R5)+ 

3$ TST (R5)+ 
INC 1 

4$ MOV (R5) RS 
RTS 5 


SEQ 0133 
sOCTAL ? 
:DIGIT BETWEEN 8-9 
:DIGIT BETWEEN 0-7 
auth 


OMMA 
: CARRIAGE RETURN 
MOVE POINTER TO NEXT CHARACTER 
: HARACTER 


:RETURN 


: THIS ROUTINE CHECKS AN ASCII STRING FOR LEGAL 


; CHARACTERS AND FORMS A DECIMAL 
> CALL 


3 MOV MADR ,R1 
; MOV NUM ,R2 
$ JSR R5,CK.DIG 
$ RETURN ADR1 
é RETURN ADR2 
RETURN ADR3 
; RETURN ADR4 
; RETURN ADRS 
: RETURN ADR6 
CK.DIG: MOV R4,-(SP) 
MOV R3,-(SP) 
MOV R2,-(SP) 
CLR R2 
CLR R3 
CLR 4 
JSR R5,CK.CHR 
6$ 
oF 
6$ 
7$ 
1$ 
1$ 
1$: ADD #4,R5 
2$: ASL R3 
MOV R3,-(SP) 
ASL R3 
ASL R3 
ADD (SP)+,R3 
ADD R2,R3 
JSR R5.CK.CHR 
8$ 
5$ 
4$ 
3$ 
2$ 
2$ 
3$: TSTB (R1) 
BNE 8$ 
TST (R4)+ 
4$: TST (R4)+ 
5$: TST (R4)+ 
CMP R3, (SP) 
BHI vor 3 


VALUE BINARY NUMBER IN R2. 
sADDRESS OF ASCIZ STRING 
MAX. MAGNITUDE OF INPUT NUMBER 
2 EHEEK aT he 

TERED == R2=0 


Y EN 
+ BERIOD™ ONLY ENTERED == R2=0 
¢ ILLEGAL CHARACTER OR INPUT TOO LARGE == R2=? 
; = NUMBER 


“= R2 
:“C -— R2 = NUMBER 
;‘PERIOD'' == R2 = NUMBER 
7 SAVE R4 
SAVE R3 
SAVE _THE MAX. SIZE ON THE STACK 
zSTART WITH 0 


CHECK ONE CHARACTER 
: ILLEGAL CHARACTER 
: CARRIAGE RETURN 


{DIGIT 0-7 

i:DIGIT 8-9 

STEP _RETURN POINTER PAST ‘'CR'' & "PERIOD’’ RETURNS 
; INPUT NUMBER *2 


TSAVE *2 


+4 


2*8 
3 (*2)4(*8) = #10 
; UPDATE THE INPUT NUMBER 


: CARRIAGE 


DIGIT 
:DIGIT 8-9 
:DOES ry FOLLOW THE ‘PERIOD’ 


S INCREMENT THE RETURN 

: INCREMENT THE RETURN 

S INCREMENT THE RETURN 

CHECK THE MAGNITUDE OF THE NUMBER 
:BR IF ENTERED NUMBER TOO LARGE 


=—m_ 





CZRMUAO_RMOS/3/2 cue EXER 


END OF PASS ROUT 


3505 031500 


3526 031524 


3531 031550 


3559 031632 
3560 
3561 





012737 


000002 
031600 
035406 
000002 


000000 


031634 
000100 
147336 
000100 
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031550 


031600 


000060 
000062 


147326 


THIS ROUTINE WILL CONVERT A 


8$ BYPASS INCREMENT 
TST (R5)+ : IN Seen RETURN PAST INVALID RETURN 
TST (R5)+ ; INCREMENT RETURN 
ADD R4,R5 ; SETUP Saad POINTER 
MOV R3.R ENTERED VALUE 
TST (SP) + : CLEAN MAX. SIZE OFF OF STACK 
MOV (SP) +,R3 TRESTORE R RS 
MOV (SP)+,R4 sRESTORE R 


:GET RETURN ADDRESS 
RTS R 7RETURN 


A_16-BIT UNSIGNED BINARY NUMBER TO AN 


[UNSIGNED DECIMAL ASCIZ NUMBER. 
> CALL 


‘NOTE : 


$SB2D: 


1$: 


MOV NUMBER 5 (SP) :PUT THE NUMBER ON THE STACK 
RETURN ZADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 


THE PROGRAM REQUIRES THIS FORM OF ‘$SB2D', NOT THE VERSION ON 
THE SYSMAC LIBRARY, REV C AND LATER 


ae 2(SP),1$ :SAVE THE BINARY NUMBER 


V #1$,~-(SP) SET THE POINTER 
JSR PC, $DB2D CALL THE DOUBLE LENGTH CONVERT 
MOV (SP)+,2(SP) PICKUP THE POINTER 
RTS PC RETURN 
-WORD 0,0 


sTHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
: UNSIGNED OCTAL ASCIZ NUMBER. 


NOTE: 


$SB20: 


1$: 


STKINT: 


MOV NUMBER,-(SP)  ;:PUT THE NUMBER ON THE STACK 
JSR PC, $SB20 CAL 
RETURN ZADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 


THE PROGRAM REQUIRES THIS FORM OF ‘$SB20', NOT THE VERSION ON 
THE SYSMAC LIBRARY, REV C AND LATER 


MOV 2(SP),1$ :SAVE THE BINARY NUMBER 
MOV #1$,~-(SP) SET THE POINTER 
JSR PC,$DB20 CALL THE DOUBLE LENGTH CONVERT 


MOV (SP)+,2(SP) PICKUP THE POINT ER 
RTS PC RETURN 
-WORD 0,0 


71) aaa INTERRUPT INITIALIZATION ROUTINE 


JSR PC, $TKINT 


MOV MSTKSRV,TKVEC ;SETUP VECTOR 

MOV #100, TKVEC+2 PRIORITY TO 4 

TST a$TkKB :CLEAR THE BUFFER 

MOV 481106, a$TKS 7SET INTERRUPT ENABLE 
RTS PC RETURN 


KEYBOARD INTERRUPT SERVICE ROUTINE 


SEQ 0134 





p11 
CZRMUAQ RM05/3/2 PERF EXER MACRO VO03.01 11=APR-80 14:52:06 PAGE 9-66 | 


PR Seta ICO RSS ae 
E END OF PASS ROUTINE SEQ 0135 . 
| 3562 : CALL 
3363 ; ENTER VIA INTERRUPT | 

3565 031634 104410 $TKSRV: RDCHR ;READ THE KEYBOARD 

3566 031636 112637 031764 MOVB  (SP)+,5$ 'GET THE CHARACTER 

3567 031642 023727 031764 000003 CMP 5$,43 : "CONTROL C’ ? 

3568 031650 001012 BNE 1$ ‘BR IF NOT 

3569 031652 104401 TYPE »SCRLF = CR=LF 

3570 031656 104401 032256 TYPE *$CNTLC g°e" 

031 012737 177777 001362 MOV #-1,CFLAG [SET THE "CONTROL C' FLAG 

3572 031670 005077 147264 CLR a$TKS =CLEAR THE TTY INTERRUPT 

3573 031674 000432 BR 4$ TEXIT 

3574 031676 023727 001154 000176 1S: CMP SWR ,ASWREG ; SOF TWARE SWITCH REGISTER IN USE ? 
| 3575 031704 001024 BNE 3$ F NOT 

3576 031706 023727 031764 000007 CMP 5$.47 = "CONTROL G* ? 

3577 031714 001020 BNE 3$ [BR IF NOT 

3578 031716 104401 001203 TYPE ~SCRLF CR=LF 

3579 031722 104401 034765 TYPE “SCNTLG r'4G! 

3580 031726 013746 177776 MOV PS,=(SP) :PUT THE STATUS WORD ON THE STACK 

3581 031732 012746 031746 MOV #2$,-(SP) [RETURN ADDRESS 

3582 031736 005077 147216 CLR as$Tks :CLEAR THE TTY INTERRUPT ENABLE 

3583 031742 000137 034426 JMP $GTSWR ‘GET THE WITCH REGISTER ENTRY 

3584 031746 012777 000100 147204 28: MOV #100, a$TKS TENABLE TTY KEYBOARD INTERRUPT 

3585 031754 000402 BR 4$ TEXIT 

3586 031756 104401 031764 3$: TYPE 5$ ZECHO THE CHARACTER 

3587 031762 000002 4s: RTI RETURN 

$359 031764 000000 5$: ~WORD 0 sENTERED CHARACTER 

3591 : THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


RETURN HERE sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
; TERMINATOR WILL BE A BYTE OF ALL 0°S 


3597 031766 010346 $RDLIN: MOV R3,-(SP) 3 SAVE _R3 

3598 031770 005046 CLR ~(SP) :CLEAR THE RUBOUT KEY 
3599 031772 012703 032244 1$: MOV ASTTYIN,R3 [GET ADDRESS 

3600 031776 022703 032256 . 2$: CMP AMSTTYIN+10.,R3  ;BUFFER FULL? 

3601 032002 101467 BLOS 4$ :BR IF YES 

3602 032004 104410 RDCHR ;GO READ ONE DURACIEN FROM THE TTY 
3603 032006 112613 MOVB (SP)+, (R3) ;GET CHARACT 

3604 032010 ieee hs 000177 CMPB ie (R3) 7IS I 


3695 032014 

2606 032016 005716 TST (SP) 
032020 001007 6$ “BR IF NO 
032022 112737 000134 032242 MOVB M'\ ,9$ 


3608 ;TYPE A BACK SLASH 

3609 032030 104401 032242 TYPE . 

3610 032034 012716 177777 MOV 4-1, (SP) ;SET THE RUBOUT KEY 
005303 BY ONE 


IF NO 
THIS THE FIRST RUBOUT? 


032040 6$: DEC R3 >BACKUP 
032042 020327 032244 CMP R3,ASTTYIN sSTACK EMPTY? 
032046 103445 4$ 


:BR_IF YES 
032050 111337 032242 MOVB i +. - TYPEOUT THE DELETED CHAR. 


1 
2 

Z 

5 032054 104401 032242 TYPE 

6 03 000746 BR $ *GO READ ANOTHER CHAR. 
i TST (SP) :RUBOUT KEY SET? 


| 
| 
| 
| 

3592 

3593 ; RDLIN ;;INPUT_A STRING FROM THE TTY 

BEQ 7S :BR | 





_C7RMUAO RMOS/3/2 PERF EXER 
(END OF PASS ROUT! 





3644 12 
3645 032216 
3646 032220 
3647 032222 
3648 24 


032262 
032262 


: 12737 


611 
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000134 
032242 
000025 
034760 


000003 


177777 
032256 


000012 
001203 
032244 
001202 
032242 
032242 
000015 


177777 
001204 


000004 
032244 


103 


104407 
032264 010337 001344 


032242 


001362 


000002 
000004 


200 


SEQ 0136 
#98 ; TYPE A BACK SLASH 
CLR (SP) ;CLEAR THE RUBOUT KEY 


7$: CMPB #e5,(R3) :IS ae A CTRL U? 
E 10$ BR _IF NO 
TYPE e SCNTLU i TYPE_A CONTROL ‘U"’ 
BR 1$ :GO START OVER 
10$: CMPB #3,(R3) iS CHARACTER A CTRL C ? 
BNE 8$ IF NOT 
MOV #~1,CFLAG SET CNTRL C FLAG 
TYPE , SCNTLC ECHO IT 
BR 11$ sEXIT 
8$: CMPB 5 so #12, (R3) IS CHARACTER A ‘LF*"? 
BNE 3$ :BRANCH_IF NO 
CLRB (R3) ;CLEAR THE CHARACTER 
TYPE »SCRLF sTYPE A ‘'CR'’ & ata ‘ 
TYPE S$TTYIN TYPE THE INPUT STRING 
BR $ :GO PICKUP VANOTHER CHACTER 
4$: TYPE , SQUES TYPE A 
_ BR 1$ CLEAR. THE BUFFER AND LOOP 
3$: (R3) ,9$ ;ECHO THE CHARACTER 
CMPB #15, (R3)+ : CHECK FOR RETURN 
BNE 2$ ;LOOP IF NOT RETURN 
CLRB -1(R3) 7CLEAR RETURN (THE 15) 
TYPE - $LF : TYPE A LINE FEED 
118: TST (SP) + LEAN 


CL RUBOUT KEY FROM THE STACK 
SRESTORE R3 

sADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 


MOV (SP) ,-(SP) 
MOV 4 (SP) ,2(SP) 
MOV #STTYIN,4(SP) 


RTI RETURN 
9$: -BYTE 0 : STORAGE — ASCII CHAR. TO TYPE 
-BYTE 0 ; TERMINA 
$TTYIN: .BLKB_ 10. : RESERVE "10 BYTES FOR TTY INPUT 
SCNTLC: .ASCIZ /*C/<CRLF> :CONTROL ‘'C’* 
- EVEN 
-SBTTL MACRO ROUTINES 


-SBTTL ERROR HANDLER ROUTINE 


POPPI t PTT i iii rrr iii it it itt tt itt tt ttt iit itt itt ttt ttt] 
3*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
:*AND GO TO SERRTYP ON ERROR 
>*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

3*SW15=1 HALT ON ERROR 


1 
3 *SW13=1 INHIBIT ERROR TYPEOUTS 
i sSW10=1 BELL ON ERROR 
*& 
ze ERROR N ::ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR 
KSWR TEST FOR CHANGE IN SOF T-SWA 


:SAVE THE ATTENTION REGISTER CONTENTS 


MOV R3,ATIN 


--— 


CZRMUAO RMO5/3/2 nSuT ine EXER 


ERROR HANDLER 


3670 


032452 


032470 
032474 


0 
032510 





010137 
032777 
004 


004737 
104401 
122737 
001007 
113737 
004737 

000 
000777 
005777 
100002 
000000 
104407 
000002 


001220 
020000 


001203 
024364 
001117 


032452 
001203 


000001 


001130 
033160 


146512 


001203 
001130 


001132 


003546 


146652 


001226 
032432 
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7$: 


1$: 


20$: 


21$: 
22$: 
2$: 


3$: 


MOV R1,DRIVE 
BIT ast @SWR 
BNE 4 

TYPE »SCRL 

JSR BC STIME 
INCB SERFLG 

BEQ 7$ 

MOV STSTNM,@DISPLAY 
BIT 481710, aSwWR 
BEQ 1$ 

TYPE e 

INC SERT 

MOV (SP), T SERRPC 
SUB #2, SERRPC 


MOVB @SERRPC ,$1TEMB 
BIT eiris. ,aSWR 


20 
JSR PC, SERRTYP 
TYPE -SCRLF 


CMPB MHAPTENV, SENV 
2s 


MOVB SITEMB, ta 
JSR O° -SATY4 


-BYTE 

-BYTE OQ 
22$ 

TST @SWR 

BPL 3$ 

HALT 

CKSWR 

RTI 


SEQ 0137 


DRIVE NUMBER 
; INHIBIT PRINTOUTS ? 
BR IF YES 


;CR=LF 
: TYPE THE TIME 
:3SET THE ERROR FLAG 
ON'T LET THE FLAG GO TO ZERO 
‘DISPLAY TEST NUMBER AND ERROR FLAG 
;;BELL ON ERROR? 
NO =~ SKIP 
$ TRING a 
: COUNT T HE NUMBER OF ERRORS 
7:GET ADDRESS OF ERROR INSTRUCTION 


+ STRIP AND SAVE THE ERROR ITEM CODE 
SKIP TYPEOUT IF SET 

::SKIP_TYPEOUTS 

:-GO TO USER ERROR ROUTINE 


; RUNNING IN APT MODE 
:2NO,SKIP APT ERROR REPORT 
SET ITEM NUMBER AS ERROR NUMBER 

:sREPORT FATAL ERROR TO APT 
2 APT ERROR LOOP 

HALT ON ERROR 
: SKIP IF CONT INUE 

ON ‘ERROR! 

7: TEST FOR CHANGE IN SOFT-SWR 
: RETURN 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


g Seweeearerkansesanareressensanseeanerenegnagearernenenseatenens 


SATHIS ROUTINE USES THE ° 


‘ITEM CONTROL BYTE*’ (SITEMB) TO DETERMINE WHICH 


:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’’ ($ERRTB), 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE 


. SCRLF 
MOV ~ alae 


BISB S061 TENS AO 


MOV SERRPC ,-(SP) 


6$ 
DEC RO 
ASL RO 
ASL RQ 
ASL 


ee RETURN’’ & ‘LINE FEED" 


:TBTCKUP THE ITEM INDEX 


:1F_ ITEM NUMBER IS ZERO, JUST 
;TYPE THE PC OF THE ERROR 

SESAVE SERRPC FUR TYPEOUT 

;sERROR ADDRESS 

4 P+ eee ASCII(ALL DIGITS) 


3z:ADJUST THE INDEX SO THAT IT WILL 
ae WORK FOR THE ERROR TABLE 


:2FORM TABLE POINTER 





3671 
3672 





032514 
0 


105737 
100002 


CZRMUAO RMOS/3/2 PERF EXER 
ERROR MESSAGE TYPEOUT ROUTINE 


032524 


032602 
040 


001173 


000002 
000091 


000100 


032656 
033150 


61$: . WORD 
000040 001227 62$: BITB M#APTCSUP , SENVM 


11 
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000 


001226 
001227 


MOV (RO) +,2$ : PICKUP "ERROR MESSAGE** POINTER 
3$ ; NO POINTER 


TYPE TYPE THE ‘ERROR MESSAGE"’ 
2s: WORD 0 32" ERROR MESSAGE" POINTER a HER E 
TYPE ,SCRLF SN te | RETURN'' & ‘LINE FEED’ 
3$: MOV (RO) +,4$ ICKUP ‘DATA HEADER*' POINTER 
BEQ 5$ ex IP TYPEOUT IF 0 
TYPE + TYPE THE ‘DATA HEADER*’ 
4$: .WORD 0 72" DATA HEADER’ POINTER GOES HERE 
TYPE ,SCRLF 32° 'CARRIAGE RETURN’’ & ‘LINE FEED’ 
S$: MOV (RO) ,RO 7zPICKUP ‘DATA TABLE’’ POINTER 
BNE 7$ 33G0 TYPE THE DATA 
6$: MOV (SP)+,RO szRESTORE RO 
TYPE ,$CRLF zi’ 'CARRIAGE RETURN'' & ‘LINE FEED’' 
- RTS PC 3 ;RETURN 
MOV @(RO)+,-(SP) sz SAVE a(RO)+ FOR TYPEOUT 
TYPOC 33GO TYPE=-OCTAL ASCII(ALL DIGITS) 
TST (RO) 31S THERE ANOTHER NUMBER? 
BEQ 6$ ss F NO 
TYPE 8$ zi TYPE TwO(2) SPACES 
BR 7$ rk 
8$: ASCIZ / / 32 TWO(2) SPACES 


-SBTTL TYPE ROUTINE 


FEAR ERE ERE EEKEEKEREEREEKEEK 


{ROUT INE TO TYPE ASCIZ MESSAGE. gee MUST TERMINATE WITH A O BYTE. 


7*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
7 *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
: *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
3 *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 
2 *CAL 
:*1) USING A TRAP INSTRUCTION 
“OR TYPE -MESADR 7:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
* 
: TYPE 
. MESADR 
** 
$TYPE: TSTB STPFLG eI THERE A TERMINAL? 
BPL 1$ IF YES 
HALT ; HALT HERE IF NO TERMINAL 
BR 3$ VE 
1$: MOV RO,-(SP) : E RO 
MOV a2(SP) ,RO SIGET ADDRESS OF ASCIZ STRING 


CMPB HAPTENV, SENV 2 ¢RUNNING IN APT MODE 
BNE 2s NO,GO CHECK FOR APT CONSOLE 
BITB #APTSPOOL ,SENVM ::SPOOL MESSAGE TO APT 


BEQ 62$ :2NO,GO CHECK FOR CONSOLE 
MOV RO,61$ 77SETUP MESSAGE ADDRESS FOR APT 
JSR PC, SATYS ::SPOOL MESSAGE TO APT 

2 :MESSAGE ADD 


DRESS 
:APT CONSOLE SUPPRESSED 
BNE 60$ ‘YES, SKIP TYPE OUT 


SEQ 0138 


——_ 


ES SS A 
—_—_ 





CZRMUAQ ee PERF EXER 
ROUTI 


TYPE 


032772 


032774 
3000 


033116 





005726 


003 
105037 


000002 
000011 
000200 


033136 


033020 
001172 


001170 
000001 


033020 
033136 


900040 
0335020 
000007 


146134 
146130 
177600 
000023 
146110 
146104 
177600 
000021 


146066 


000002 
000015 


033136 
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146060 
000002 


23: 
60$: 
3$: 


4$: 


5$: 
6$: 


7$: 


sHORIZONTAL TAB 


8$: 
9$: 


STYPEC: 


101$: 


102$: 
10$: 


MOVB 


(RO) +,=(SP) 
4$ 

(SP) + 

(SP) +,RO 
#2, (SP) 
#HT, (SP) 
ACRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2$ 


PC,$TYPEC 
Saati 


$NULL ,- (SP) 
1(SP) 

6$ 

PC, S$TYPEC 
$CHARCNT 

7$ 
PROCESSOR 

#"’ , (SP) 
PC,’ TYPEC 
#7. $CHARCNT 
9$ 

(SP)+ 

2$ 

asTkS 

10$ 
a$TKB,-(SP) 
#177600, (SP) 
#SXOFF , (SP) 
102$ 

asTks 

101$ 

a$TKB, (SP) 
#177600, (SP) 
#SXON, (SP) 


e 


(SP)+ 


a$TPS 
10$ 


0 
2(SP) ,a$TPB 
one (SP) 


SCHARCNT 


& SEQ 0139 


3;PUSH CHARACTER TO BE TYPED ONTO STACK 
3-;BR IF_IT ISN'T THE TERMINAT 
OR POP IT OFF THE STACK 


TORE RO 

3 TADJUST RETURN PC 
URN 

+: BRANCH IF <HT> 

; BRANCH IF NOT <CRLF> 


7zPOP <CR><LF> EQUIV 
7: TYPE A CR AND LF 


ts ae CHARACTER COUNT 
T_NEXT C!'ARACTER 
7:GO TYPE THiS CHARACTER 
e215 IT TIME FOR Ae CHARS .? 
:1F NO GO GET NEXT CHAR. 
3 GET # OF FILLER CHARS. NEEDED 
ae THE NULL CHAR. 
::DOES A NULL NEED TO BE TYPED? 
:BR IF NO--GO POP THE NULL OFF OF STACK 
2260 TYPE A NULL 
O NOT COUNT AS A COUNT 


:sREPLACE TAB WITH SPACE 
23 TYP E A SPACE 
: ;BRANCH IF NOT AT 
STOP 


POP SPACE OFF STACK 
22GET NEXT CHARACTER 


23 CHAR IN KYBD BUFFER? 
;BR_IF NOT 


SIGET C CHAR 
; STRIP EXTRANEOUS BITS 
CHAR X 


ee 


7zWAIT FOR CHAR 

3i:GET CHAR 

izSTRIP IT 

77WAS IT XON? 

77BR IF NOT 

ziFIX STACK 

7zWAIT UNTIL PRINTER IS READY 


;:LOAD CHAR TO BE TYPED INTC DATA REG. 
3335 age A CARRIAGE RETURN? 


: <BRANCH | 
22YES--CLEAR CHARACTER COUNT 


Suge B 7 PERF EXER 


TYPE 


3673 
3674 


033122 


0 
033140 


033142 


000406 
122766 
001402 
105227 


000000 
000207 


112737 
112737 


000403 
112737 


000012 
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000002 


033406 
033404 


033406 


001226 
001227 


000004 


001206 
033316 
000004 


001210 
000004 


1$: 


STYPEX: 


BR 
CMPB 
BEQ 


RTS 


INCB 
SCHARCNT : .WORD 


STYPEX 
ALF ,2(SP) 
STYPEX 
(PC)+ 


PC 


sEXIT 
HIS CHARACTER A LINE FEED? 
CH_IF YES 


::COUNT THE CHARACTER 
3s CHARACTER COUNT STORAGE 


-SBTTL APT COMMUNICATIONS ROUTINE 


REAR RERAAEEAEEEEEAEEEEERAEEREREEEREEEHEREKEEERERHKEEEEREKEEREEEEEE 


12$: 


#1 ,SFFLG 
#1, SMFLG 


SATYC 
#1,SFFLG 
RO,-(SP) 
R1,~(SP) 
SMFLG 


5$ 
HAPTENV, SENV 
3$ 


#APTSPOOL , SENVM 


@4 (SP) ,RO 
#2,4(SP) 
SMSGTYPE 

RO, SMSGAD 
(RO) + 

2$ 

SMSGAD ,RO 
RO 

RO, $MSGLGT 
#4, SMSGTYPE 
a4 (SP) ,4$ 
#2,4(SP) 
177776, (SP) 
PC, $TYPE 

0 

SFFLG 

12$ 

SENV 

12$ 
SMSGTYPE 
AtsP), $F ATAL 
#2,4(SP) 
S$MSGTYPE 
SFFLG 

$LFLG 

SMF LG 
(SP)+,R1 


(SP)+,RO 
PC 


32TO REPORT FATAL ERROR 
3:TO TYPE A MESSAGE 


3:TO ONLY REPORT FATAL ERROR 
3zPUSH RO ON STACK 
77PUSH R1 ON STACK 
: «SHOULD TYPE A MESSAGE? 
zIF NOT: BR 
: SOPERATING UNDER APT? 
soar bors at > MESSAGES? 
33GET MESSAGE ADDR. 


: ;BUMP RETURN ADDR. 
73SEE IF" F DONE W/ LAST XMISSION? 


:31F NOT: 
:sPUT ADDR IN MAILBOX 
:3sFIND END OF MESSAGE 


7:SUB START OF MESSAGE 
::GET MESSAGE LNGTH IN WORDS 
::PUT LENGTH IN MAILBOX 
::TELL APT TO TAKE MSG. 
::PUT MSG ADDR IN JSR LINKAGE 
“BUMP RETURN ADDRESS 
7 PUSH 199776 ON STACK 
*:CALL TYPE MACRO 
::SHOULD REPORT FATAL ERROR? 
NOT: BR 
: [RUNNING UNDER APT? 
: FINISHED LAST MESSAGE? 
:IF NOT: WAIT 
:GET ERROR e 
URN ADDR. 


;BUMP_RET 
73 TELL abt TO Ly ERROR 
7;CLEAR FATAL FLAG 


:-CLEAR LOG FLAG 
3:CLEAR MESSAGE FLAG 
STACK INTO R1 


; :POP STACK INTO RO 
URN 


CZRMUAO RMOS/3/2 PERF E 
APT COMMUNICATIONS ROUT 


3675 
3676 





033404 
033405 
033406 


033560 
033562 


ER 
NE 


033554 
000340 


145510 
033560 
033462 


033554 


033560 
145442 


033410 
000340 


012 
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000024 
000026 


000024 


000024 


000024 
000026 


120 


SMFLG: .BYTE 
$LFLG: .BYTE 
SFFLG: .BYTE 
APTSIZE = 200 
APTENV. = 001 
APTSPOOL= 100 
APTCSUP = 040 


i 3MESSG. FLAG 
3;LOG FLAG 
i:FATAL FLAG 


ooo 


-SBTTL POWER DOWN AND UP ROUTINES 


SAAR REECE 


POWER DOWN ROUTINE 


SPWRDN: 


AMSILLUP ,Q#PWRVEC ;;SET FOR FAST UP 
#340, {aAPURVEC 2 33PRIO:7 


7 (SP 33PUSH RO ON STACK 
R1,-(SP) 33PUSH R1 ON STACK 
R2,-(SP) 7zPUSH R2 ON STACK 
R3,-(SP) 3zPUSH R3 ON STACK 
R4,-(SP) 73PUSH R4& ON STACK 
R5,-(SP) 37PUSH RS ON STACK 
@SWR ,- (SP) 73PUSH @SWR ON STACK 
SP, $SAVR6 scSAVE SP 

#SPWRUP, @APWRVEC ;;SET UP VECTOR 
72 7 ZHANG UP 


FREAK EEEEEEREKKEEEEEKEKEEEKEREEEREEREKEREERERKKEK 


: POWER UP “pane 
$PWRUP : 


1$: INC 


SPWRMG : — 
SPWRAD: .WORD 
SILLUP: HALT 
BR 
SSAVR6: 0 
SPCWER: 


#SILLUP ,a#PWRVEC seSET FOR FAST DOWN 
$SAVR6, SP T SP 


e oe 


SSAVR6 :z:WAIT LOOP FOR THE TTY 
SSAVR6 2 WAIT FOR THE INC 

1$ :0F WORD 

(SP) +, @SWR 7:POP STACK INTO aSWR 
(SP)+,R5 :POP STACK INTO R5 
(SP)+,R4 :sPOP STACK INTO R4& 
(SP)+,R3 ze STACK INTO R3 
(SP)+,R2 ee STACK INTO R2 
(SP)+,R1 ae STACK INTO R1 


P :sPOP 
#SPWRON, AAPWRVEC :jSET UP THE POWER DOWN VECTOR 
#340, a#PWRVEC+2 ;:PR oe 

‘hero T THE POWER FAILURE 


SPOWER POWER FAIL MESSAGE PU:NTER 
(PC)+, (SP) S IRESTART AT SATPOW 
SATPOW 2 RESTART ADDRESS 


+3 THE POWER UP SEQUENCE WAS STARTED 
72 32 BEFORE THE POWER DOWN WAS COMPLETE 
32PUT THE SP HERE 


eASCIZ <15><12>' POWER’ 
VEN 


POW UP ROUTINE , WAIT 
;FIVE MINUTS, THEN AUTO STARTS AT SETVEC 


SEQ 0141 


M11 
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DOWN AND UP ROUTINES SEQ 0142 
3681 033572 000005 SATPOW: RESET :CLEAR THE BUS 
3682 033574 005037 177776 CLR aAPSs [CLEAR PSW 
3683 033600 005037 001366 CLR HOUR SRESET THE HOUR COUNT 
005037 001370 CLR MINUTE SRESET THE MINUTS COUNT 
3685 033610 005037 001372 CLR SECOND SRESET THE SECOND COUNT 
3686 033614 005037 001474 CLR INTRVL+2 SRESET THE INTERVAL COUNT 
3487 033620 004737 023326 JSR PC, CKCLK :CHECK THE CLOCK 
033624 022737 000170 001474 1$: CMP #120. , INTRVL+2 iFIVE MINUTES YET ? 
3689 033632 101374 BHI 1$ ‘WAIT IF NOT 
3690 033634 005037 001474 CLR INTRVL+2 SRESET INTERVAL COUNT 
3691 033640 005037 001372 CLR SECOND ;RESET TIMER 
3692 033644 005037 001370 CLR MINUTE 
3693 033650 012737 000400 001360 MOV #400, CHGADR “FORGE THE AUTO START 
3694 033656 012705 001526 MOV HORDERQ,R5 :CLEAR UP THE QUEUE AND BUFFER 
3695 033662 005025 2$: CLR (R5)+ 
3696 033664 022705 002106 CMP #BLKADR RS yALL DONE ? 
3697 033670 001374 BNE [BRANCH IF NOT 
3698 033672 012737 007070 001266 MOV #7070,$CDw1 [FLAG FROM POWER FAIL 
3699 033700 000137 005054 JMP S1ZMEM SLOOP BACK 
3701 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


Et iet TTT iit iit iii iti tit titi itit titi ttt e te TT ett 
SRTHIS ROUTINE IS USED TO — A 16-BI1T BINARY NUMBER TO A 6-DIGIT 

; OCTAL (ASCII) NUMBER AND TYPE IT. 

ee HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


ot 

hed MOV NUM, -(SP) ; <NUMBER TO BE TYPED 

> TYPOS 2-CALL_FOR TYPEOUT 

se -BYTE N :zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
:® -BYTE ™ :M=1 OR O 

3* 321=TYPE LEADING ZEROS 

be 320=SUPPRESS LEADING ZEROS 


** 
2 *STYPON--~-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
ot OR $TYPOC 


is MOV. —- NUM, =(SP) ;NUMBER TO BE TYPED 
3” TYPON SCALL FOR TYPEOUT 
-* 
:*STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
:* MOV —- NUM, ~(SP) ; NUMBER TO BE TYPED 
3” TYPOC 7:CALL FOR TYPEOUT 
033704 017646 000000 STYPOS: MOV = a(SP),-(SP) :PICKUP THE MODE 
033710 116637 000001 034127 move — 1(SP) *SOFILL = 3;LOAD ZERO FILL SWITCH 
033716 112637 034131 MOVB (SP)+,$OMODE+1 ;:NUMBER OF DIGITS TO TYPE 
033722 062716 000002 ADDS, (SB) ADJUST RETURN ADDRESS 
033726 000406 BR $TYPON 
33730 112737 000001 034127 $TYPOC: MOVB #1,$OFILL 73SET THE ZERO FILL SWITCH 
33 112737 000006 034131 MOVB #6, $OMODE+1 SET FOR SIX(6) DIGITS 
033744 112737 000005 034126 $TYPON: MOVB #5.$OCNT 77SET THE ITERATION COUNT 
033752 01034 SAVE R3 
01 SAVE R4 
01 SAVE _R 
11 7:GET THE NUMBER OF DIGITS TO TYPE 








CZRMUAO_RMOS/3/2 PERF EXER 


BINARY TO OCTAL (ASCII) AND 


0341 
3702 
3703 





034130 
177770 


000040 
034124 
034124 
034126 


000002 000004 


N 11 
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NEG RS 
ADD #6,R4 at rae hn FOR MAX. ALLOWED 
MOVB R4 , SOMODE save IT USE 
MOVB SOF ILL,R4 72GET THE “ZERO FILL SWITCH 
MOV 12(SP),R5 :3PICKUP_THE INPUT NUMBER 
CLR R3 3;CLEAR THE OUTPUT WORD 
1$: ROL R5 + ¢ROTATE MSB INTO ‘'C’’ 
BR 3$ DO_MSB 
2$: ROL R5 FORM THIS DIGIT 
ROL R5 
ROL R5 
MOV R5,R3 
3$: ROL R3 ::GET LSB OF THIS DIGIT 
DECB SOMODE 23 TYPE THIS DIGIT? 
L 7$ IF NO 
BIC #177770,R3 32GET . OF JUNK 
BNE 4$ :-TEST FOR O 
TST R4 3-SUPPRESS THIS 0? 
BEQ 5$ :sBR IF YES 
4$ INC R4 3:DON'T SUPPRESS ANYMORE 0'S 
BIS #°0,R3 2 sMAKE THIS DIGIT ASCII 
5$: BIS #* ,R3 sMAKE ASCII IF NOT ALREADY 
MOVB R3,8$ 7:SAVE FOR TYPING 
TYPE 8S ::GO TYPE THIS DIGIT 
7$: DECB SOCNT :;COUNT BY 1 
BGT 2$ ::BR IF MORE TO DO 
BLT 6$ 33 F DONE 
INC R4 7: INSURE LAST DIGIT ISN'T A BLANK 
BR 2$ :2GO DO THE LAST DIGIT 
6$: MOV (SP)+,R5 2 sRESTORE R5 
MOV (SP)+,R4 2 sRESTORE R4 
MOV (SP)+,R3 2 ¢RESTORE R 


R3 
MOV 2(SP) ,4(SP) 2sSET THE STACK FOR RETURNING 
MOV (SP) +, (SP) 


RTI ; sRETURN 
8$: -BYTE 0Q 3-STORAGE FOR ASCII DIGIT 
-BYTE 0Q 2:TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE 0 :;OCTAL DIGIT COUNTER 
SOFILL: .BYTE 0 72ZERO FILL SWITCH 
SOMODE: .WORD 0 2 NUMBER OF DIGITS TO TYPE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


Ett iii iii iii r iii iit titi it itt it tit iti iti tt ttt itty 
SRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
z*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
2 *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
—o WITH SPACES. 

* $ 


:* MOV NUM, -(SP) 7zPUT THE BINARY NUMBER ON THE STACK 
3* TYPDS 3:GO TO THE ROUTINE 
$TYPDS: 


MOV RO,~(SP) 
MOV R1,-(SP) 
MOV R2,~(SP) 


37PUSH RO ON STACK 
3z;PUSH R1 ON STACK 
32PUSH R2 ON STACK 





CZRMUAO sit gg A PERF EXER 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
034140 346 
034142 010546 
0341 012746 020200 
034150 016605 000020 
034154 
034156 005405 
034160 112766 000055 000001 
034166 005000 
034170 012703 034346 
034174 112723 000040 
034200 005002 
034202 016001 034336 
034206 160105 


177777 


177777 +=177776 


034316 012 
034 104401 034346 
034324 01 000002 000004 
034332 012616 
034334 
034336 023420 
034340 001750 
034342 
034344 2 
034346 
3704 
3705 


7$: 


8$: 


9$: 


$DTBL: 


$DBLK: 


-BLKW 


RR Mf 
#36200, sp) 
a RS 
RS 
#'=,1(SP) 
RO 


ASDBLK ,R3 
a , (R3)+ 


SOTBL (RO) ,R1 
R5 


(SP) 


4 zR0 


SCoPE) 6 (SP) 
(SP) +. (SP) 


4 


-SBTTL TTY INPUT ROUTINE 


SERRA EERE REAR ERE EEE ERE EEE EE 


 ENABL LSB 
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SEQ 0144 

3zPUSH R3 ON STACK 
+ ¢PUSH RS ON STACK 

;SET BLANK SWITCH AND SIGN 
tIGET THE INPUT NUMBER 
37BR IF INPUT POS. 
7 7MAKE THE BINARY NUMBER POS. 
33MAKE THE ASCII NUMBER NEG. 
33ZERO THE CONSTANTS INDEX 
3;SETUP THE OUTPUT POIN 


; PU TER 
32SET THE FIRST CHARACTER TO A BLANK 
7;CLEAR THE BCD _— 

:;GET THE CONSTAN 

27 FORM jm DIGIT 


7BR IF D 
7: INCREASE THE BCD DIGIT BY vi 


3sADD BACK THE CONSTANT 
+ ¢ CHECK IF BCD DIGIT=0 


ALL THROUGH IF 0 
:3STILL DOING LEADING 0'S? 
;BR IF YES 


BR IF NO 

22YES--SET THE SIGN 

32MAKE THE BCD DIGIT ASCII 

oa. IT A SPACE _IF NOT ALREADY A DIGIT 
sPUT_THIS CHARACTER IN THE OUTPUT BUFFER 

;:JUST INCREMENT ING 

ah THE TABLE INDEX 

DO a A NEXT DIGIT 


THE LSD 
32GO CHANGE TO ASCII 
27 WAS oy Ts THE FIRST NON-ZERO? 


7IYES=-SET THE SIGN FOR TYPING 
23SET THE TERMINATOR 


:sNOW TYPE THE NUMBER 
3sADJUST THE STACK 
; RETURN TO USER 





ao 


| a ke Se eee 
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FERRARA AEREEEERERERERREREEEREREEREERERREEEREREREEEEEE 


:#SOF TWARE SWITCH REGISTER CHANGE ROUTINE. s 


| 034356 022737 
34364 001074 


034456 117746 
034462 042716 


021627 
005 





000176 
144566 


144562 
177600 
000007 


000100 
033020 
000060 
000067 


000060 
000002 





001154 


. 000001 


144424 


000001 
144402 


: SERVICE THE TEST FOR 
> *WHEN OPERATING IN TTY F 
$CKSWR: CMP #SWREG, S 
TSTB  a$TKS 
BPL 15$ 
MOVB  a$TKB,-(SP) 
BIC #°(177, (SP) 
CMP #7, (SP)+ 
BNE 15 
CMPB = $AUTO8, #1 
BEQ 15$ 
TYPE »SCNTLG 
$GTSWR: TYPE *$MSWR 
V SWREG,-(SP) 
TYPOC 
TYPE  ,S$MNEW 
19$: CLR =(SP) 
CLR -(SP) 
7$: TSTB = a$TKS 
7$ 
MO @$TKB,-(SP) 
BIC #°C177, (SP) 
9$: CMP (SP) ,425 
BNE $ 
TYPE /SCNTLU 
20$: ADD SP 
BR $ 
10$: CMP (SP) ,4#15 
BNE 16$ 
TST 4(SP) 
BEQ 11$ 
MOV 2(SP) ,a@SWR 
11$: ADD #6,SP 
14$: TYPE LF 
CMPB =—s- $INTAG,, #1 
BNE 
MOV #100, a$TKS 
15$: RTI 
16$: JSR PC, S$TYPEC 
CMP (SP) , #60 
BLT 
CMP (SP) ,#67 
BGT 18$ 
BIC #60, (SP)+ 
TST 2(SP) 
17$ 


ROUTINE IS ge hae FROM THE TRAP HANDLER, WILL 
°F lider Sul TCH REGISTER TRAP CALL 


22S THE SOFT=SWR SELECTED? 
CH IF NO 


33 CHAR THERE? 

:1F NO, DON'T WAIT AROUND 
TISAVE THE CHAR 
Hs ITA ¢ THE ‘oy 


WE 
‘BRANCH IF YES 
3-ECHO THE CONTROL-G (*G) 
:-TYPE CURRENT CONTENTS 
cas SWREG FOR TYPEOUT 

Soak nan a DIGITS) 

PROMPT FOR NEW 
SECLEAR COUNTER 
ERE? 

:3IF NOT TRY AGAIN 


33PICK UP CHAR 
:sMAKE IT 7-BIT ASCII 


21S IT A_CONTROL-U? 
3 ;BRANCH IF NOT 


2c YES, ECHO CONTROL-U (“*U) 
GNORE PREVIOUS INPUT 

TZLET’ S TRY IT AGAIN 

3218S IT A <CR>? 

¥- CH IF NO 

zzYES, IS IT THE FIRST CHAR? 

3 CH YES 


ee LF> 
in ae a KBD INTERRUPTS? 
7 RE-ENABLE TTY KBD INTERRUPTS 


: {BRANCH IF YES 
r1S THIS THE FIRST CHAR 
7;BRANCH IF YES 


SEQ 0145 


- 


| 


CZRMUAQ git AS PERF EXER 
TTY INPUT ROUTI 


3706 
3707 


035014 


000002 
177776 
001202 


000004 
144304 
144300 
177600 
000004 
144252 
144246 
177600 
000021 
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000002 


000004 
000004 
000023 


17$: INC 


18$: TYPE 
BR 
-DSABL LSB 


2(SP) 
=2(SP), (SP) 


$QUES 
20$ 


+ 3NO, SHIFT PRESENT 
ee CHAR OVER TO MAKE 
FOR NEW ONE. 


ROOM 
: SKEEP COUNT OF CHAR 
ee oe IN NEW CHAR 
T THE NEXT ONE 
ZITYPE ?<CR><LF> 
:eSIMULATE CONTROL-U 


FERRARA EEEETEEREREREEKREREREREEREREEREREREEEREREEEE 


PRTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


;*CALL: 
; DCHR zz INPUT A SINGLE CHARACTER FROM THE TTY 
3* RETURN HERE 7: CHARACTER IS ON THE STACK 
ie Z:WITH PARITY BIT STRIPPED OFF 
$SRDCHR: MOV (SP) ,-(SP) ZPUSH DOWN THE PC 
MOV 4(SP) ,2(SP) 17 SAVE THE PS 
1$: TSTB = @STKS ::WAIT FOR 
BPL 1$ 7:A CHARACTER 
MOVB  a$TKB,4(SP) ::READ THE TTY 
BIC #°C<177>,4 (SP) :3GET RID OF JUNK IF ANY 
CMP 4(SP) #23 S IT A CONTROL-S? 
BNE $ i: (CH IF NO 
2$: TSTB = @STKS ::WAIT FOR A CHARACTER 
BPL $ ::LOOP UNTIL [TS THERE 
MOVB  a@$TKB,-(SP) ::GET CHARACTER 
BIC #°(177, (SP) [:MAKE IT 7-BIT ASCII 
CMP (SP)+, #211 ::1S IT A CONTROL-Q7 
BNE 2$ ::1F NOT DISCARD IT 
BR 1$ 7:YES, RESUME 
3S: CMP 4(SP) #140 ::1S IT UPPER CASE? 
BLT 4$ 33 CH IF YES 
CMP 4(SP) #175 z:1S IT A SPECIAL CHAR? 
BGT 33 CH IF YES 
BIC #40,4(SP) 7:MAKE IT UPPER CASE 
4$: RTI £260 BACK TO USER 
$CNTLU: .ASCIZ /*U/<15><12> :CONTROL ‘U"' 
$CNTLG: .ASCIZ /*G/<15><12> =: CONTROL ‘'G’’ 
$MSWR: .ASCIZ <15><12>/SWR = 
SMNEW: .ASCIZ / NEW = / 
.SBTTL RANDOM NUMBER GENERATOR ROUTINE 
SEERA EERE 
tSTHIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
zeWITH A RANGE OF 0 TO 2(+33)-1. 
** 
j* JSR PC, $RAND z:CALL THE ROUTINE 
te RE TURN ;:RETURN HERE THE RANDOM 
ie ::NUMBER WILL BE IN 
ie :: ,SLONUM 
SRAND : 





SEQ 0146 


Daa 


peer 
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R GENERATOR ROUTINE SEQ 0147 
035014 0100466 MOV RO,-(SP) 73PUSH RO ON STACK 
035016 010146 MOV R1,-(SP) 37PUSH R1 ON STACK 
35020 010246 MOV R2,-(SP) 3zPUSH R2 ON STACK 
035022 013700 035114 MOV $L ,RO 3zSET RO WITH L 
035026 013701 035112 MOV SHINUM,R1 7zSET 81 WITH HIGH 
035032 012702 177771 MOV #-7,R 7zSET SHIFT COUNT 
| 035036 006300 1$ ASL RO 3s SHIFT RO LEF 
035040 006101 ROL R1 ;ZROTATE CARRY INTO R1 AND 
035042 005202 INC R2 7: CHECK FOR DONE 
035044 001374 BNE 1$ 7; CONTINUE SHIFT LOOP 
035046 063700 035114 ADD $SLONUM ,RO ;Z;ADD NUMBER TO MAKE X 129 
035052 005501 ADC R1 3zPROPOGATE CARRY 
035054 063701 035112 ADD SHINUM,R1 77;ADD NUMBER TO MAKE X 129 
035060 062700 001057 ADD #1057,R0 7zADD LOW CONSTANT 
035064 005501 ADC R1 2 sPROPOGATE CARRY 
035066 062701 047401 ADD #476401,R1 ADD HIGH CONSTANT 
035072 010037 035114 MOV RO, SLONUM t: SAVE RO 
035076 010137 035112 MOV R1,$HINUM 77SAVE R1 
035102 012602 MOV (SP)+,R2 POP STACK INTO R2 
035104 012601 MOV (SP)+,R1 3zPOP STACK INTO R1 
035106 012600 MOV (SP)+,RO + ¢POP STACK INTO RO 
035110 000207 RTS PC 7 2RETURN 
035112 176543 SHINUM: .WORD 176543 
s708 035114 123456 SLONUM: .WORD 123456 
3709 -SBTTL SAVE AND RESTORE RO-R5 ROUTINES 
FARRER EERE EERE ARERR 
 SSAVE RO-R5 
“yeaa SAVREG 
; “UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
STOP=-=(+16) 
p* +2=---(+18) 
y® +4=---R5 
7* +6---R4 
7% +8---R3 
3*+10---R2 
3*+12---R1 
3*+14---R0 
035116 SSAVREG: 
035116 MOV RO,-(SP) 72PUSH RO ON STACK 
035120 010146 MOV R1,-(SP) 372PUSH R1 ON STACK 
0351°? 010246 MOV R2,-(SP) os H R2 ON STACK 
0351<4 010346 MOV R3,-(SP) 3 3PUSH ON STACK 
035126 MOV R4,-(SP) $i H R4& ON STACK 
1 010546 MOV R5,-(SP) 77PUSH R5 ON STACK 
035132 000022 MOV 22(SP), -(SP) 72SAVE PS OF MAIN FLOW 
016646 000022 MOV 22(SP) .=(SP) 77SAVE PC OF MAIN FLOW 
035142 016646 000022 MOV 22(SP) ,-(SP) 7; SAVE PS OF CALL 
035146 016646 000022 MOV 22(SP),-(SP) 7zSAVE PC OF CALL 
035152 000002 RTI 


Daa 





“CZRMUAO RMOS/3/2 PERF EXER 
| SAVE AND RESTORE RO=-R5 ROUTINES 


oe 


2710 
3711 


035154 


035212 


036394 


45000 
035632 


000002 
035372 
000002 


000012 
035322 
035324 


069060 
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035310 


* 
$RESREG: 


RESREG 


RTI 


(SP) +,22(SP) 


(SP) +, “RO 


:sRESTORE PC OF CALL 
2 sRESTORE PS OF CALL 
2zRESTORE PC OF MAIN FLOW 
+ ¢RESTORE PS OF MAIN FLOW 


::POP STACK INTO RO 


-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


JRA RRR RRR EAR REEREE 


:STHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
wih NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


1$: 


3$: 


4$: 


R 
STNPWR: 


#PNTR,-(SP) 
PC, a#$DB2D 


2(SP) ,R2 


(R4)+,R1 
R 


(R4)+,R2 
os (R5)+ 
#'°0,R3 


he (RO) + 
0 


1$ 
(RO) + 


v 
oO 


:sPOINTER TO LOW WORD OF BINARY NUMBER 


abr FIRST a OF ASCIZ 
IS ON THE S$ 


3:SAVE REGISTERS 

::PICKUP THE DATA POINTER 

:2:GET ADDRESS OF *‘SDECVL'’ STRING 

3:PUT ADDRESS OF ASCIZ STRING ON STACK 
::PICKUP THE BINARY NUMBER 


SET UP TO DO 10 CONVERSIONS 
:sADDRESS OF TEN POWER 


7:CLEAR PARTIAL 
3:SUBTRACT TEN POWER 


:;BR_IF TEN POWER TO LARGE 
:zADD 1 TO PARTIAL 


;;LOOP 
7RESTORE SUBTRACTED VALUE 


ser: TO NEXT TEN POWER 
3 SAVE IT PARTIAL TO ASCII 


7 BR IF NO 


RMINATOR 
2 ¢RESTORE REGISTERS 
ZRETURN 
7:1.0E09 


SEO 0148 
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(DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE SEQ 0149 
035326 160400 160400 11.0£08 
| 035330 002765 2765 
035332 113200 113200 21.0€07 
035334 000230 230 
035336 041100 041100 321.0E06 
035340 000017 
035342 103240 103240 £21.0€05 
| 035344 7 1 
35346 023420 23420 321.004 
035350 000000 
035352 001750 1750 1.0E03 
035354 000000 0 
035356 000144 144 217.0602 
| 035360 000000 0 
035362 000012 12 :1.0€01 
000000 0 
000001 1 21.0600 
035370 000000 0 
3712 035372 $DECVL: .BLKB Tee sZRESERVE STORAGE FOR ASCIZ STRING 
3713 -SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
FARE ERE EERE REE EREREEREREERREEKEEEE 
*STHIS ROUTINE WILL CONVERT A mae UNSIGNED BINARY NUMBER TO AN 
isUNSIGNED OCTAL ASCIZ NUMBER 
** 
i” MOV APNTR,-(SP) ;zPOINTER TO LOW WORD OF BINARY NUMBER 
ie JSR _—«- PC, a#$DB20 CALL THE ROUTINE 
oe RETURN 32 THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
035406 104412 $DB20: SAVREG ; SAVE ALL REGISTERS 
035410 016601 000002 MOV 2(SP),R1 PICKUP THE POINTER TO LOW WORD 
035414 012705 035525 MOV s« #SOCTVL+13.,R5 ::POINTER TO DATA TABLE 
035420 012704 000014 MOV = #12...R4 7:D0 ELEVEN CHARACTERS 
035424 012703 177770 MOV = HACT“R3 > TMASK 
035430 012100 MOV (R1)+,RO : SLOWER WORD 
035432 012101 MOV (R1)+-R1 + HIGH WORD 
035434 005002 CLR R2 SS TERMINATOR 
035436 110245 1$: MOVB R2,-(R5) 72PUT CHARACTER IN DATA TABLE 
035440 010002 MOV _—RO.R2 GET THIS DIGIT 
035442 005304 DEC R4 COUNT THIS CHARACTER 
035444 003007 BGT 3$ 2 ¢BR IF NOT THE LAST DIGIT 
035446 001405 BEQ 2$ “BR IF IT IS THE LAST DIGIT 
035450 005205 INC R5 ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
025452 010566 000002 MOV _—R5,2(SP) TIASCIZ CHAR. & PUT IT ON THE STACK 
035456 104413 RESREG IRESTORE ALL REGISTERS 
035460 000207 RTS PC ;:RETURN TO USER 
| 035462 006203 2$: ASR R3 ::POSITION THE MASK FOR THE LAST DIGIT 
035464 006001 3s: ROR R1 ::POSITION THE BINARY NUMBER FOR 
006000 ROR RO 2 THE NEXT OCTAL DIGIT 
035470 006001 ROR R1 
035472 006000 ROR RO 
035474 006001 ROR R1 
035476 006000 ROR RO 
00 040302 BIC R3,R2 :MASK OUT ALL JUNK 


0355 
035502 062702 000060 ADD #°0,R2 7eMAKE THIS CHAR. ASCII 





1 


i 


nS SSSA <<a sh senses 
SS 


CZRMUAO RMO5/3/2 PERF EXER 
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


035506 000753 
035510 


WW 
NN 
a 
ws 


035526 
0 


035546 


035550 
035552 
035560 


035562 
035564 


035574 
035576 


011646 
01666 


035550 
0 


000002 


035562 


000004 000002 
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BR 1$ ::GO PUT IT IN THE DATA TABLE 
SOCTVL: .BLKB 14. ;sRESERVE DATA TABLE 


-SBTTL TRAP DECODER 


PPP PPT eerie Tit it tt itt itt iti titiitiiTiity 
:ATHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND_USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) 7 SAVE RO 
MOV 2(5P) ,RO 22GET TRAP ADDRESS 
TST -(RO) :BACKUP BY 2 
MOVB (RO) RO :3GET RIGHT BYTE OF TRAP 
ASL RO een fe FOR INDEXING 
MOV STRPAD (RO) ,RO :EINDEX T TABLE 
RTS RO :GO TO ROUTINE 


i:THIS IS USE TO HANDLE THE ''GETPRI'’ MACRO 


$TRAP2: MOV (SP) ,-(SP) :sMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) :sMOVE THE PSW DOWN 
RTI 2 RESTORE THE PSW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE *‘TRAP*’ INSTRUCTION. 


; ROUTINE 

$STRPAD: .WORD $TRAP2 
$TYPE 32CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
$TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (W!TH SIGN) 


SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 


SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwWR 

SRDCHR + ¢CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 

$RDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 

$SAVREG ::CALL=SAVREG TRAP+12 412) SAVE RO-R5 ROUTINE 

SRESREG ;;CALL=RESREG  TRAP+13 3 OUT INE 

SDSPLY ;;CALL=DISPLY TRAP+14 414) ROUTINE TO TYPE ERROR MESSAGES 
$TERM=.-$TRPAD 


SEQ 0150 


See eee eee ne rr ee ee 


Tt we 
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SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) FEBRUARY 1980 SEQ 0151 | 


.SBTTL SINGLE/DUAL PORT RH/RM DRIVER (REV 6.2) FEBRUARY 1980 
sNEW DRIVE TYPE ID FOR RMO2 *xexnannnne 


*10-AUG=77 RHKKRKKKKEH 

310-MAR-78 THE SC, SC5 CHANGES 

“NEW DRIVE TYPE 1D FOR RMOS xexxnnnnne 
sFEBRUARY 1980 «xexxnaneee 


COPYRIGHT (C) 1977 


/ 
1 
3 
4 
5 
6 
7 
8 
9 
0 
1 MA 
§ S AUTHOR (8) : JIM LACEY/CHUCK HESS/ 
4 
5 
6 
7 
8 
9 
0 
2 
4 
5 


45 :DRVTYP=0 IF DRIVE IS NONE XI STENT (DRVSTA=0, ALSO) 
46 SDRVTYP=7 IF DRIVE IS RMOS sexx 

47 SDRVTYP=5 IF DRIVE IS RMO2 txxene 

48 :DRVTYP=4 IF DRIVE IS _RMO3 

49 :DRVTYP=-1 IF NOT RMO5/3/2 


| | 
| | 
1 :DIGITAL EQUIPMENT CORP. ' 
MAYNARD, MA 01754 
: ; ° FREER AERA 
1 
;STORAGE FOR RMDS. AMER, RMER2, AND RMMR2 ON AN ERROR "2" 
1 PMERAS +2 = RMER1 
1 “RMERRS+4 = RMER2 
2c “RMERRS+6 = RMMR2 
22 035614 000000 000000 000000 MERRS: .WwORD 0,0,0,0 
2 TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES) 
2 T=0 IF DRIVE IS IDLE 
3% SDAVACTOO TF DRIVE 19 ACTIVE WITH A CORPO 
27 SDRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 
29 035624 000 DRVACT: .BYTE 0 DRIVE 0 
32 035625 000 "BYTE 0 :DRIVE 1 
035626 000 "BYTE 0 “DRIVE 2 
035627 ~—s-000 "BYTE 0 “DRIVE 3 
35630 «000 "BYTE 0 “DRIVE 4 
035631 000 "BYTE 0 :DRIVE 5 
035632 000 "BYTE 0 DRIVE 6 
, 039638 000 "BYTE 0 DRIVE 7 
34 TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES) 
35 ;DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 
6 SDRVSTADO IF DRIVE 4s ora fae 
37 :DRVSTA<O IF DRIVE IS UNSAFE ; 
39 035634 000 DRVSTA: .BYTE 0 DRIVE 0 
42 035635 000 "BYTE 0 “DRIVE 1 
035636 000 "BYTE 0 ‘DRIVE 2 
035637 «000 "BYTE 0 DRIVE 3 
35640 «000 "BYTE 0 :DRIVE 4 
035641 000 "BYTE 0 :DRIVE 5 
035642 000 "BYTE 0 DRIVE 6 
3 039643 000 "BYTE 0 “DRIVE 7 
44 TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 
| 





= 
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E/DUAL PORT RH/RM DRIVER (REV 6.2) FEBRUARY 


50 
51 035644 
54 Becee 


035654 


035673 


7 
78 035674 
79 
80 
81 
82 
83 
84 


85 
86 035676 


SS88S8s8 


000000 


000 


DRVTYP: .BYTE 0 + :DRIVE 0 
-BYTE Q :DRIVE 1 
-BYTE Q :DRIVE 2 
-BYTE 0 sDRIVE 4 
-BYTE 0Q sDRIVE 5 
BYTE 0 sDRIVE 6 
-BYTE 0 sDRIVE 7 


; TABLE OF opint PORT INITIALIZATION INDICATORS 
NT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE 
DPINT<O IF INITIALIZATION IS IN PROGRESS 


DPINT: .BYTE 0 DRIVE 0 
-BYTE O :DRIVE 1 
BYTE Q sDRIVE 2 
-BYTE 0 DRIVE 3 
-BYTE 0 sDRIVE 4 
-BYTE OQ sDRIVE 5 
-BYTE 0Q DRIVE 6 
-BYTE 0 sDRIVE 7 


; TABLE OF oketen” DUAL PORT REQUESTS 
QS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
‘ DPROS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 


DPRQS: .BYTE 0 DRIVE 0 
-BYTE 0O :DRIVE 1 
-BYTE 0Q sDRIVE 2 
-~BYTE O DRIVE 3 
-BYTE 0O DRIVE 4 
-BYTE OQ :DRIVE 5 
-BYTE 0Q :DRIVE 6 
-BYTE 0O sDRIVE 7 


; TRANSFER WAIT FLAG (TRNSWT=1 WORD) 
sf S_A_ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
;"DPB'' OF THE 1/0 OPERATION. 


TRNSWT: .WORD 0 
; SEARCH — KEYS (SRCHWT=1 WORD) 
THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
>THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0 
SREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE. 
:EACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0. 
SRCHWT: .WORD 0 
7RM DRIVER ACTIVE FLAG (ACTDRV=1 BYTE) 
sACTDRV=0 IF DRIVER IS INACTIVE 
sACTDRV>O IF DRIVER IS ACTIVE 
ACTDRV: .BYTE 0 


sSOFTWARE TIMER ROUTINE ACT'Vc FLAG (ACTSTR=1 BYTE) 


SEQ 0152 


K 12 
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95 sACTSTR=0 IF SOFTWARE TIMER ROUTINE IS INACTIVE 
oy sACTSTR>O IF SOFTWARE TIMER ROUTINE IS ACTIVE 
eS 035701 000 ACTSTR: .BYTE 0 
100 :UNLOAD FLAG (ULDFLG=8 BYTES) 
101 sULDFLG=0 IF NO UNLOAD COMMAND 
102 sULDFLG>O IF UNLOAD COMMAND IN PROGRESS 
4 :ULDFLG<0 IF UNLOAD COMMAND IN WAIT QUEUE 
105 035702 000 ULDFLG: .BYTE 0 :DRIVE 0 
108 035703 000 -BYTE QO :DRIVE 1 
035704 000 BYTE Q sDRIVE 2 
035705 000 -BYTE 0Q sDRIVE 3 
035706 000 -BYTE QO sDRIVE 4 
035707 000 BYTE Q sDRIVE 5 
035710 000 -BYTE 0 :DRIVE 6 
109 035711 000 -BYTE 0 sDRIVE 7 
110 ;LOOK AHEAD COUNT (LACNT=8 BYTES) 
ii) sLACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 
113 035712 000 LACNT: .BYTE 0 :DRIVE 0 
116 035713 000 -BYTE 0 sDRIVE 1 
035714 000 -BYTE 0Q :DRIVE 2 
035715 -BYTE Q sDRIVE 3 
035716 000 -BYTE 0O DRIVE 4 
035717 000 BYTE 0O sDRIVE 5 
035720 000 -BYTE Q DRIVE 6 
"17 035721 000 -BYTE 0 sDRIVE 7 
118 :SAVE REGISTERS FLAG (SAVEFG =1 WORD) 
119 :SAVEFG <0 IF SAVE THE RH/RM yt tkes WHEN THE 
120 OPERATION IS COMPLETED AS PER (DPB+14). 
121 ;SAVEFG=0 IF SAVE THE RH/RM REGISTERS, AS PER 
1s : (DPB+14), AFTER AN ERROR. 
is 035722 000000 SAVEFG: .WORD 0 
126 SEEK FLAG (SEEKFG=1 WORD) 
127 SEE KFG=0_IF WHEN THE DISK ADDRESS ISN'T IN THE WINDOW 
128 FOR A DATA _ TRANSFER START A SEARCH COMMAND 
129 >SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
iw [DISREGARD THE WINDOW 
1x 035724 177777 SEEKFG: .WORD -1 
134 TIMEOUT TABLE (TIMER=8 WORDS) 
it 4 :THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 
137 035726 177777 TIMER: .WORD -=1 DRIVE 0 
140 035730 177777 «WORD -1 :DRIVE 1 
035732 177777 WORD -1 DRIVE 2 
035734 177777 WORD -=1 :DRIVE 3 
035736 177777 ad | :DRIVE 4 
035740 177777 «WORD -1 :DRIVE 5 
035742 177777 -WORD =1 DRIVE 6 


SEQ 0153 





035744 


WUESWh— 


035746 


SERS S 


NO 


035750 


WOONAUESWN OOO 
Oo 
WG 
wi 
~“N 
wi 
Nm 


035757 


ee ce a ee a cc a ed ad ed a a ee cd ed ad ed cd 
SSSVVEV LUN VSS 


ARAVS 


035760 
035762 
035764 
035770 
035772 


035774 


035776 


1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


EFRAVLESEREARATSSISVRARAVAVSSSVLF 


177777 


177777 


000003 


000004 
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000240 
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-WORD <1 sDRIVE 7 


DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 age 
:DTUW<O IF NO DATA TRANSFER UNDERW 
;DTUW=+N (WHERE N=0 TO 7) IMPLIES” DATA TRANSFER UNDERWAY ON DRIVE N 


DTUW: .WORD <1 
ATTENTION Tare t TABLE (ATABIT=8 BYTES) 


TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
S ATTENTION BIT 


ATABIT: .BYTE 1 :DRIVE 
-BYTE 2 :DRIVE 
-BYTE 4 sDRIVE 
BYTE 10 :DRIVE 


= 

P*] 

_ 

<= 

m 
NOUS WM Oo 


-BYTE 200 :DRIVE 


3FSRM TO RH11/RH70 Bn oe CONTROL BUS PARITY ERRORS’ (MCPE) ALLOWED BEFORE 
CALLING IT FATAL (MCPEMX=1 WORD) 


MCPEMX: .WORD 3 


sSTORAGE FOR RMADR (THE FIRST ADDRESS (776700) OF THE RH/RM), 
sRMVEC (THE VECTOR ADDRESS (254)), AND RMVEC+2 (THE BR LEVEL (5)). 


RMADR: .WORD 176700 
RMVEC: .WORD 254,5*32. 
MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
MXLACT: «WORD 4 
sMAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 
MXDLTA: .WORD 8. *64. 
:MINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 
MNDLTA: .WORD 264, 


zMAXIMUM SEARCH FOR I/0 WINDOW IS 5 SECTORS (MXWNDW=1 WORD) 
MXWNDW: .WORD 5 


DEFINITIONS OF THE RH/RM ADDRESS INDEXES 


RMCS1=0 CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 
RMWC=2 WORD COUNT REGISTER (NOT A DRIVE REG) 

RMBA=4 sUNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 

RMDA= DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE aeee 05) 
RMCS2=10 ONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 
RMDS=12 DRIVE STATUS REGISTER (DRIVE REG 01) 

RMER1=14 yep REGISTER #1 senile REG. 02) 

RMAS=16 TTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 
RMLA=20 AHEAD REGISTER (DRIVE REG. 


‘TOOK 
=22 :DATA_BUFFER REGISTER (NOT A DRIVE REG.) 
;MAINTAINABILITY REGISTER (DRIVE REG. 03) 


SEQ 0154 


SINGLE/DUAL PORT RH/ 


B22 


SeleoRares 


MPMNMNPOPoNofr 
a aed ed ed ced ae ceed ceed eed ed 
SOUONAOUSWN—O 


222 036002 


roronrnofero 
Mrnrn 
Wh— 

g : 


253 036156 


001366 
012701 
005037 
105761 
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17777 
000 


035614 
035724 


035746 
177777 


035634 
177770 


000007 
177776 
* 035654 
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RMD T=26 sDRIVE TYPE REGISTER (DRIVE REG. 06) 

RMSN=30 ;SERIAL NUMBER REGISTER (DRIVE REG. 10) 

RMOF =32 OFFSET REGISTER (DRIVE R 11) 

RMDC=34 pd CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
RMHR=36 2D ADDRESS aeteh oe (DRIVE REG. 13) 

RMMR2=40 MAINTENANCE REGISTER #2 

RMER2=42 sERROR REGISTER #2 (DRIVE REG. 15) 

RMEC1=44 sECC POSITION REGISTER (DRIVE REG. 16) 

RMEC2=46 ECC PATTERN REGISTER (DRIVE REG. 17) 


-SBTTL RH/RM DRIVER INITIALIZATION CODE 


THIS ROUTINE WILL DETERMINE WHICH RM DRIVES ARE 
sAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
:TO_THE PROPER STATE FOR EACH DRIVE. 

NOTE: THIS ROUTINE CALLS DRVINT 


CALL 


JSR 
RETURN 


PC,RMINIT 


;NOTE: THE "P* OR 'L" CLOCK MUST BE STARTED 


RMINIT: SAVREG 


177776 


1$: 


2s: 


000010 


3$: 


4$: 
5$: 


6$: 


WSEEKFG.R2 
(R1)+ 

R1,R2 

1$ 


ADTUW,R2 
#-1,(R1)+ 
R eo 2 

2s 

DRVSTA 
DRVSTA+2 
DRVSTA+4 
DRVSTA+6 
RMVEC ,R3 
MISR, (R3)+ 


RMVEC+2, (R3) 
ACLR,RMCS2(R4) 


RO, DRVINT 
4$ 


5$ 
DRVSTA(R1) 
R1 

#*C7,R1 

3$ 

or ae 
DPINT(R1) 


;SAVE RO - R5 

SAVE THE PRESENT PROCESSOR STATUS 
: CHANGE THE PRIORITY TO 5 

SCLEAR ALL REQUEST QUEUES 

FIRST ADDRESS TO BE CLEARED 

1 ie TO BE CLEARED 


sARE WE DONE? 


BR IF NO 
;LAST ADDRESS 
: INITIALIZE 
ONE? 


;LOOP IF NO 
:SET ALL DRIVES TO OFFLINE 


SETUP THE RH/RM VECTOR 


FIRST ADDRESS OF RH/RM 
:MASSBU i 


START WITH DRIVE 0 
: INIT THE DR 
:"DVA" NOT SET OR PARITY ERROR 


iSET DRIVE stare TO OFFLINE 
:GO TO NEXT 


3 V 
>CLEAR THE PROCESSOR STA 
;WAITING FOR abe TO sulTCH PORTS ? 





SEQ 0155 


001405 
004737 
105761 
001375 
005301 


100366 
012637 
104413 
000207 


010546 


309 366 -. 
310 036372 001404 
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043402 
035654 


177776 


035634 


043402 
035634 
004000 


042722 


000004 
020024 
024024 
000005 
020025 
024025 
000007 
020027 
024027 
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000000 
000010 


000000 


035644 
035644 


035644 


BEQ 8$ :BR_NOT al a 
JSR PC,SET.IE SET INTERR 
7$: TSTB DPINT(R1) a Sul TCHED PORTS ? 
BNE 7$ BR IF NOT 
8$: DEC R1 :GO TO THE 7 "kat DRIVE 
BPL 6$ CHECK NEXT DRIVE 
MOV (SP)+,PS RESTORE THE PROCESSOR STATUS 
RESREG RESTORE RO - R5 
RTS PC :BYE-BYE 


sare INITILIZATION ROUTINE 


THIS ROUTINE wo iit’. IF A DRIVE EXIST AND IF IT I 
sAN RMO5/3/2. IF IT IS, A ‘'READ-IN PRESET’' IS ISSUED 6 
:1S SET TO A ‘''. THEN 7.,.DPR, DRY, AND VV ARE CHECKED TO 
INSURE THEY ARE ALL ON A ““1''. AND DEPENDING ON THEIR STATE, 


:DRVSTA IS SET TO THE PROPER CONDITION. 


; MOV #DRVNUM ,R1 DRIVE NUMBER TO R1 

: MOV RMADR ,R4 ; UNIBUS aa OF RH/RM (RMCS1) 
: JSR RO,DRVINT CALLED BY A JSR 

; RETURN1 ERROR OCCURRED (PARITY) 

: RETURN2 NORMAL RETURN 


DRVINT: MOV R5,~-(SP) ; SAVE_R5S 

DULP:  CLRB DRVSTA(R1) START DRIVE STATUS AS OFFLINE 
CLRB DRVTYP(R1) CLEAR THE DRIVE TYPE INDICATOR 
CLRB ULDFLG(R1) CLEAR THE UNLOAD FLAG 


.MOV R1,RMCS2(R4) SELECT A DRIVE 


MOVB #111 -RMCS1(R4) ;DO A DRIVE CLEAR COMMAND (& SEIZE DRIVE) 
BIT #BIT12,RMCS2(R4) sNONEXISTENT DRIVE? 
BEQ 1$ NO ; 
JSR PC,SET.IE :GO SET "‘IE’' WITHOUT A ‘‘TRE"’ 
BR 6$ ;LEAVE THIS ROUTINE 
1$ CLRB DRVSTA(R1) zSET DRIVE STATUS TO OFFLINE 
BIT #B1T11,RMCS1(R4) ;SEE IF DRIVE AVAILABLE 
BEQ DULP :BR IF DRIVE NOT AVAILABLE 
JSR RO,RD.RM ZREAD THE DRIVE TYPE REG. 
BS TERROR RETURN ADDRESS 
MOV (SP)+,R5 :PUT DRIVE. TYPE IN R5 
MOVB #4 ,DRVTYP(R1) T RMO3 INDIC CATOR 
CMP #20024 ,R5 SENG PORT RMO3 ? 
BEQ 2$ :BR IF YES 
CMP #24024 ,R5 [DUAL PORT RMO3 ? 
BEQ 2$ *BR IF YES 
MOVB #5,DRVTYP(R1)  :SET rMO2 INDICATOR 
CMP #20025,R5 [SINGLE PORT RMO2 ? 
BEQ 2$ :BR IF SO 
CMP #24025 .R5 BUM, PRT RMO2 ? 
MOVB #7 DRVTYP(R1) SET _RMOS_ INDICATOR 
CMP #20027,R5 ‘SINGLE PORT RMOS ? 
BEQ 2s ‘BR IF gy 
CMP #24027,R5 [DUAL PORT RMOS ? 


BEQ 2s :BR IF YES 


SEQ 0156 


CZRMUAO RMOS/3/2 PERF EXER 
RH/RM DRIVER INITIALIZATION CODE 


311 036374 112761 177777 
2 000446 

012746 000121 

004037 043076 

036544 

012746 010000 

4 004037 043076 


WNWWWWN 
ee ed ed ed eed eed 
OOONAUS WI 


eS 
oo 


042722 


035750 
042722 


177777 


167077 
000001 


060000 
177777 


013746 177776 


035766 
000001 


000016 


035762 
035634 


01 
105761 
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035644 


000016 


035634 


035634 


035726 
035654 


177776 
035700 





2$: 


4$: 


6$: 
7$: 


8$: 


MOVB 
BR 


#=1,DRVTYP(R1) ;SET INDICATOR TO '07.1ER" 
6$ EXIT 


#121,-(SP) :D0 A 'READ-IN PRESET'’ 
RO,WRT.RM 


#B1T12,-(SP) SET FMT16=1 
RO,WRT.RM 
RO,RD.RM READ RMDS 
(SP) +,R5 7 AND a ® IT IN RS 
4$ :BR IF ATA=0 
ATABIT(R1) “PAS (RA) CLEAR ATTENTION BIT 
RO,RD.RM FIND OUT WHY ATA=1 
(SP) + 71S IT UNSAFE? 
$ BR IF 


4 3 NOT 
#-1,DRVSTA(R1) ;SET UNSAFE INDICATOR 
6$ sEXIT 


R5 CHECK DPR, DRY, AND VV 
#*C<BIT12!B1T08!81707 BI TOG>. R5 
;BR_IF MOL, DPR, DRY. OR VV IS CLEAR 
#1,DRVSTA(R1) SET DRIVE STATUS TO ONLINE 
(RO) + : STEP OVER THE ERROR RETURN 


R1 : CHANGE INDEX TO oe to WORDS 
#60000, TIMER(R1)- 5 aes 2 SEC TIMER 


#~1 ,DPINT(R1) iSET PORT INITIALIZE INIDICATOR 
(SP)+,R5 RESTORE R5 


RO sEXIT 


sREQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 


CALL 


JSR 


RO,RMOS ZCALL THE RMOS DRIVER 
;ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
TRETURN HERE IF QUEUE IS FULL 
ZRETURN HERE IF REQUEST IS IN QUEUE OR THERE 
71S AN ERROR CONDITION 

PS,-(SP) 7SAVE THE CALL ING STATUS 

RMVEC+2,PS DON'T ALLOW ANY RM INTERRUPTS 

#1, ACTDRV iSET_ "ACTIVE DRIVER FLAG 

(RO) .R2 [PICKUP THE DRIVE PARAMETER BLOCK POINTER 

16(R2) = CLEAR THE STATUS/ERROR INDICATOR 

(R2),R1 [PICKUP THE DRIVE NUMBER 

RMADR ,R4 SUNIBUS ADDRESS OF RMCS1 

DRVSTA(R1) ZCHECK DRIVES STATUS 


SEQ 0157 


Dao 


| C13, 
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368 036612 003014 BGT 1$ :BR IF ONLINE 
369 036614 105761 035702 TSTB — ULDFLG(R1) [UNLOAD COMMAND IN QUEUE? 
370 036620 001036 BNE sBR IF Y 
371 036622 105761 035654 TSTB —sDPINT(R1) : TRYING TO INIT THE DRIVE 
372 036626 001042 BNE $ [BR IF YES 
373 036630 004037 036212 JSR RO, DRVINT :G0 INIT. THE DRIVE 
374 036634 000434 BR 
375 036636 105761 035634 TSTB —— DRVSTA(R1) <1S DRIVE STATUS ONLINE? 
376 036642 003445 BLE [BR IF NOT 
036644 105761 035664 1$: TSTB —— DPRQS(R1) : OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
378 036650 001031 PNE 5$ F YES 
379 036652 010164 000010 MOV R1,RMCS2(R4) SELECT THE DRIVE 
380 036656 004037 044044 JSR RO. DRVQUE [PUT THIS REQUEST IN QUEUE 
381 036662 000460 BR 9$ TQUEUE IS FULL 
036664 122762 000103 000002 CMPB ss #103, 2(R2) :1$ THIS REQ. FOR AN UNLOAD? 
383 036672 001003 BNE 2 F 
384 036674 112761 177777 035702 MOVB #=1,ULDFLG(R1) SET THE “UNLOAD IN QUEUE'’ FLAG 
385 036702 105761 035624 2$: TSTB — DRVACT(R1) tIS THIS DRIVE ACTIVE? 
386 036706 001043 BNE ay ‘BR IF YES 
387 036710 004737 037042 JSR PC,OPT ZCALL THE OPTIMIZER 
388 036714 000440 BR $ 
036716 012762 120000 000016 38: MOV #81T15!B1T13,16(R2) ySET THE "UNLOAD IN QUEUE’ ERROR FLAG 
390 036724 000434 BR 8$ XIT 
391 036726 004737 040122 4$: JSR PC,CI7 ‘60 HANDLE THE PARITY ERROR 
392 036732 000431 BR 
393 036734 004037 044044 5$: JSR RO, DRVQUE zPUT REQUEST IN QUEUE 
394 036740 000431 BR 9$ TQUEUE IS FULL 
395 036742 032714 000100 BIT #BIT06, (R4) :1E BIT SET ? 
396 036746 001023 BNE 
397 036750 004737 043402 JSR PC,SET.IE “SET THE INTERRUPT 
398 036754 000420 BR 8$ RETURN 
399 036756 105761 035634 6$: TSTB —— DRVSTA(R1) ZSEE IF DRIVE OFFLINE OR UNSAFE 
400 036762 002412 BLT 7$ “BR E 
401 036764 012762 140000 000016 MOV #B1T15'B1T14,16(R2) :SET OFFLINE ERROR INDICATOR 
402 036772 105761 035644 TSTB — DRVTYP(R1) :SEE IF OFFLINE OR NONEXISTENT 
403 036776 001007 BNE F OFFLINE 
037 012762 100002 000016 - MOV #B1T15'!BITO1, 1602) REPORT DRIVE NONEXISTENT 
03 000403 BR 8$ 0 TO 
406 037010 012762 110000 000016 7s: MOV #B1T15!BIT12, 16ch3) “DRIVE IS UNSAFE 
407 037016 104413 8$: RESREG RESTORE RO - R5 
408 037020 005720 TST (RO)+ “SETUP FOR NORMAL RETURN 
409 037022 000401 BR 10$ : FINISH UP THEN EXIT 
410 037024 104413 9$: RESREG RO - 
411 037026 005720 10$: TST (RO)+ ‘CORRECT | HE RETURN ADDRESS 
412 037030 105037 035700 CLRB = ACTDRV CLEAR "’ACTIVE DRIVER'' FLAG 
413 037034 012637 177776 MOV (SP)+,PS [RETURN 'PS'' TO USER LEVEL 
414 037040 000200 RTS RO *RETURN TO CALLER 
416 ;OPTIMIZER-CALLED FOR A PARTICULAR, DRIVE 
418 CALL . 
419 : MOV #DRVNUM,R1 ;DRIVE NUMBER TO R1 
420 : JSR PC, OPT SSETUP A COMMAND 
422 037042 104412 OPT:  SAVREG ;SAVE RO - R5 
423 037044 013746 177776 MOV PS,-(SP) >SAVE PROC. STAT 


US 
424 037050 146137 035750 035676 BICB ATABIT(R1),SRCHWT CLEAR LA SEACH FLAG 





mea 








5 seus 
427 037066 
428 037070 
429 0370 


105061 
004737 


122762 
002403 
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035664 
044120 
000010 
000111 
004000 
035634 
044142 
140000 
035634 
110000 


000150 
037506 
035746 
035724 
040460 


037300 
037406 
177777 


060000 
040122 
000100 


043402 
177776 
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000016 


000002 


035664 


035726 


10$: 


2$: 


MOV 
RESREG 
RTS 


DPRQS (R1) 
PC,GETREQ 
Re 


7$ 
R1,RMCS2(R4) 
#111, RMCS1(R4) 
wirit, RMCS1 (RG) 


5 
DRVSTA(R1) 
1$ 


PC ,POPQUE “NO==RE 
mitts + a 16(R2) 


DRVS 


8$ :BR 
#81T15!B1T12,16(R2) 
8$ :BR 


tee THE PORT REQ FLAG **#* 
T_'DPB'' POINTER OF REQUEST 

ifs. THERE A | mea I : 

;NO=-BR TO EXIT 


sLOAD THE DRIVE ADDRESS ****ee« 
LEAR THE DRI vE 


sDVA SET 
;TO PROT’ REQUEST IF NOT 
:1S DRIVE ONLINE? 


MOVE REQUEST FROM QUEUE 
; SET OFFLINE STATUS/ERROR INDICATOR 
71S DRIVE UNSAF cot 
TO EXIT IF 
ek oY UNSAFE STATUS/ERROR INDICATOR 


ray 


#111,-(SP) LOAD COMMAND ONTO THE STACK 
0.WRT.RM ;LOaD THE REGISTER 

REGISTER INCREMENT 

TERROR RETURN + ae 
#BIT11,(R4) DRIVE AVAILABLE ? 

BR IF NOT 
aaa ae REQUEST FOR 1/0? 
PC,CI4 [CALL THE COMMAND INITIATOR 
8$ :BR_TO EXIT 
DTUW DATA TRANSFER UNDERWAY? 
4$ :YES--GO START A SEARCH 
te :D0 IMPLIED SEEKS? | 
RO,LA ;NO=-DO LOOK AHEAD 
8$ RETURN HERE ON A PARITY ERROR 
4$ :GO START A_SEARCH 
PC,CI1 7START A DATA TRANSFER 
PC,C13 START A SEARCH 


8$ 
#-1,DPRQS(R1)  : SET 
R1,R3 3S 


R3 7; CONV 
op + TIMER(R3) i 


:GO_ TO THE EXIT 
PORT REQUEST INDICATOR 
RESS WORDS 


INDEX 
zSTART 10 SEC TIMER 
;PROCESS THE PARITY ERROR 


WiT06,(Ra) SEE TP "IE" ALREADY. SEY 
8$ :BR_IF SET 

PC,SET.IE :SET "IE" WITHOUT A ‘‘TRE"’ 
(SP) +,PS :RESTORE PROC. STATUS 

me ZRESTORE RO ~ R5 


: COMMAND INITIATOR 


CALL 


#DRVNUM ,R1 
ADPB,R2 
PC,CI? 


DRIVE NUMBER 
ADDRESS OF DPB 
:C1?= C11,C13, OR C14 


SEQ 0159 


Da 


CZRMUAO RMOS/3/2 PERF EXER 
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SEQ 0160 
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482 5 WHERE : 
| 483 ; :CIT=DATA_ TRANSFER 
484 : :CI2=SEARCH REQUESTED BY DATA XFER 
485 : :CI4=NOT DATA TRANSFER | 
487 037300 737 044142 C11 JSR PC ,POPQUE ;REMOVE REQUEST FROM "DRIVES WAIT'* QUEUE 
62 027 910237 035674 MOV R2. TRNSWT [PUT REQ. IN TRANSFER WAIT QUEUE 
489 037310 010203 MOV R2.R3 [DPB ADDRESS TO R3 
490 037312 013704 035762 MOV RMADR RG ‘RMCS1 ADDRESS 
491 037316 010164 000010 MOV R1,RMCS2(R4) = SELECT DRIVE 
0373 703 000004 ADD #4,R3 [DESIRED WORD COUNT 
493 037326 704 000002 ADD #2_RG *RMWC ADDRESS 
494 037332 012324 MOV (R3)+, (RG)+ :LOAD WORD COUNT 
495 037334 012324 MOV (R3)+. (RG)+ LOAD BUFFER ADDRESS 
496 037336 012346 MOV (R3)+.=(SP) [LOAD SECTOR AND TRACK 
497 037340 004037 043076 JSR RO,WRT.RM [CALL THE LOAD(WRITE) ROUTINE 
498 037344 RMDA : INDEX OF REGISTER TO LOAD 
499 037346 040122 C17 TERROR RETURN ADDRESS 
037350 012345 MOV (R3)+,=(SP) LOAD CYLINDER A ADDRESS 
501 037352 004037 043076 JSR RO, WRT .RM 
502 037356 000034 RMDC 
503 037360 040122 C17 
504 037362 016246 000002 MOV 2(R2) ,=(SP) ;LOAD ‘'COMMAND+GO"', "'A178A16"', AND 'PSEL'' 
037366 037 043076 JSR RO, WRT .RM 
506 037372 RMCS1 
507 037374 040122 C17 
508 037376 010137 035746 MOV R1,DTUW :SET "DATA TRANSFER UNDERWAY'' 
509 037402 137 040064 JMP c15 
510 037406 013704 035762 C13: MOV R,R4 :RMCS1 ADDRESS 
511 037412 010164 000010 MOV R1,RMCS2(R4)  : SELECT DRIVE 
512 037416 016246 000012 MOV 12(R2),-(SP) DESIRED CYLINDER ADDRESS 
513 0374 037 043076 JSR RO,WRT RM 
514 037426 000034 RMDC 
515 037430 040122 C17 
516 037432 116203 000010 MOVB _——10(R2),R3 :PICKUP SECTOR ADDRESS 
517 ; SUB MXWNDW_R3 SBACKUP BY MAX. SEARCH FOR 1/0 WINDOW 
518 : BGE 1$ 
519 : ADD #32. ,R3 , 
520 037436 010346 is: MOV R3,-(SP) : COMBINE THE ADJUSTED SECTOR WITH 
521 037440 042716 177740 BIC #177740,(SP)  =CHOP OF ALL EXENTED BITS wIF ANY 
522 037444 116266 000011 000001 MOVB 11(R2),1(SP) | :THE DESIRED TRACK 
523 037452 004037 043076 JSR RO, WRT. RM [LOAD DESIRED TRACK & SECTOR 
524 0374 RMDA 
25 037460 040122 C17 
526 037462 012746 000131 MOV #131,-(SP) :START A SEARCH 
037 004037 043076 JSR RO,WRT.RM 
528 037472 RMCS1 
529 037474 04012 C17 
530 037476 156137 035750 035676 BISB  ATABIT(R1),SRCHWT :SET ‘‘SEARCH WAIT’ KEY 
531 037504 000567 BR C15 
037506 013704 035762 C14: MOV RMADR ,R4 :RMCS1 ADDRESS 
533 037512 010164 000010 MOV R1,RMCS2(R4) SELECT DRIVE 
037516 116203 000002 MOVB =. 2(R2) .R3 PICKUP THE REQUESTED COMMAND 
535 037522 122703 000131 CMPB Ss #'131,R :1S IT A SEARCH COMMAND? 
0375 1007 BNE 1$ ‘BR IF NO 
537 037530 016246 000010 MOV 10(R2),-(SP) | :LOAD DESIRED TRACK & SECTOR 
538 037534 037 043076 JSR RO, WRT RM 
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539 037540 000006 RMDA 
$40 037542 040122 C17 
541 037544 000403 ge 2$ :GO LOAD CYLINDER 
37546 122703 000105 1$: CMPB #105,R3 :1S IT A SEEK COMMAND 
543 037552 001007 - BNE 3$ ;BR IF NO 
544 037554 016246 000012 2$: MOV 12(R2) ,=-(SP) LOAD DESIRED CYLINDER 
545 037560 004037 043076 JSR RO,WRT.RM 
546 037564 RMDC 
547 037566 040122 C17 
548 037570 000546 BR C16 
549 037572 122703 000115 3$: CMPB #115,R3 31S IT AN ‘OFFSET'’ COMMAND? 
550 037576 001013 BNE 4$ [BR IF NO 
004037 042722 JSR RO,RD.RM *MERGE THE OFFSET VALUE INTO RMOF 
552 037604 000032 RMOF ;BUT DON'T CHANGE THE UPPER 
553 037606 040122 C17 
554 037610 116216 000001 MOVB 1(R2), (SP) BYTE WHEN LOADING THE 
555 037614 004037 043076 JSR RO,WRT.RM REGISTER (RMOF) 
556 037620 000032 RMOF 
557 037622 040122 C17 
558 037624 000530 RR C16 :GO START THE COMMAND 
559 037626 122703 000107 4$: CMPB #107,R3 sIS ITA <RECALIBRATE’* COMMAND? 
560 037632 001525 BEQ C16 BR IF YES 
561 037634 122703 000117 CMPB #117,R3 31S IT A RETURN TO CENTER? 
562 037640 001522 BEQ BR IF YES 
563 037642 122703 000103 CMPB #103,R3 :1S IT AN ‘UNLOAD'' COMMAND? 
564 037646 001016 BNE 5$ ;BR IF NO 
565 037650 112761 000001 035624 MOVR #1,DRVACT(R1)  ;SET THE DRIVE ACTIVE INDICATOR 
566 037656 105061 035634 CLRB DRVSTA(R1) sPUT DRIVE STATUS TO OFFLINE 
567 037662 112761 000001 035702 MOVB #1,ULDFLG(R1) :SET ‘UNLOAD IN PROGRESS** FLAG 
568 037670 010346 MOV R3,-(SP) START THE ‘UNLOAD’’ COMMAND 
569 037672 004037 043076 JSR RO, WRT .RM 
570 037676 000000 RMCS1 
7700 040122 C17 
572 037702 000207 RTS PC ;RETURN TO USER 
573 122703 000143 5$: CMPB #143,R3 31S IT A “'SET FORMAT'’ COMMAND? 
574 037710 001014 BNE 6$ [BR IF NO 
575 037712 004037 042722 JSR RO,RD.RM READ THE OFFSET REGISTER 
576 037716 32 RMOF 
577 037720 040122 C17 
578 037722 116266 000001 000001 MOVB 1(R2),1 (SP) :COMBINE ‘FMT16"',"ECI'', AND ‘HCI"' 
579 037730 004037 043076 JSR RO, WRT .RM [LOAD ‘FMT16"', “ECI'’, AND/OR ‘HCI''. 
037 32 RMOF 
81 037736 040122 C17 
522 037740 36 BR 12$ 
583 037742 122703 000141 6$: CMPB #141,R3 z1S IT A "GET REGISTER’’ COMMAND? 
584 037746 001023 BNE 10$ BR IF NO 
585 037750 016203 000006 7$: MOV 6(R2) ,R3 :POINTS TO 1ST ADDRESS OF WHERE 
586 TO PUT THE REGISTER(S) 
587 037754 116237 000010 037772 MOVB 10(R2) ,9$ SINIT. THE INDEX FOR THE FIRST REG. 
588 037762 116205 000011 MOVB 11(R2),R5 7 INDEX OF LAST REG. TO MOVE 
589 037766 004037 042722 8$: JSR RO,RD.RM SREAD RH/RM REGISTER 
590 037772 000000 9$: RMCS1 ; INDEX OF REG. TO READ 
591 037774 040122 C17 
592 037776 012623 MOV (SP)+,(R3)+ he THe CONTENTS OF RH/RM REG. 
040000 023705 037772 CMP 9$,R5 REG. BEEN READ? 
94 040004 001414 BEQ 12$ GET Tut IF YES 
595 040006 062737 000002 037772 ADD #2,9$ S INCREASE THE INDEX BY 2 


-—— 
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0014 


652 040256 


000207 
012762 
012746 
004037 


020137 


|RH/RM DRIVER INITIALIZATION CODE 


000145 
043076 
044142 
000200 
035722 
043264 


060000 
000001 


035674 


035674 
177777 


010000 


035624 


035664 


035674 
035746 
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000016 


035726 
035624 


000010 


000016 


035746 


000010 


10$: 
11$: 


12$: 


C16: 


22$: 


8$ 
#145,R3 
12$ 
R3,-(SP) 
RO,WRT.RM 


PC ,POPQUE 
#B1T07,16(R2) 
SAVEF G 


; LOOP=-MORE READ 
sIS ITA NSELECIT DRIVE'’ COMMAND? 
;BR IF YES 


SLOAD THE COMMAND 
:REMOVE REQ. FROM QUEUE 


7SET THE ° 
+ eB | RH/RM REGISTERS? 


13$ ;BR 

PC, SVRH70 7YES=-GO SAVE THE REGISTERS 

pC SRETURN TO USER 

#60000, TIMER(R1) SET A ONE SECOND TIMER 
#1,DRVACT(R1)  ;SET THE DRIVE ACTIVE 

PC ;RETURN TO THE USER 

R3,-(SP) ;LOAD THE COMMAND 

RO,WRT.RM 


C15 
#BIT12,.RMCS2(R4) 
C18 


sDRIVE NON-EXISTENT ? 


Y 
R2 T ANYTHING IN QUEUE ? 
C17B ;BR IF NOT 
2$ :BR IF QUEUE IS THERE 
PC HERWISE EXIT 
#B1T15'BIT11, 16(R2) :SET ‘PARITY'’ ERROR INDICATOR 
PC,SVRH70 3760 SAVE THE RH/RM_ REGISTERS 

#111, - (SP) :DO A ‘DRIVE CLEAR 
RO, WRT .RM 
PC,EMPTYQ sEMPTY THE QUEUE 
DPRQS(R1) ;CLEAR THE PORT REQUEST FLAG 
ULDFLG(R1) :CLEAR THE UNLOAD IN QUEUE FLAG 
DRVACT(R1) sDRIVE IS IDLE 
R2, TRNSWT 7 IF THIS DRIVE HAD AN I/O REQUEST 
R1,DTUw 7I1F THIS DRIVE HAD AN I/0 REQUEST 
1$ : IN PROGRESS CLEAR ALL OF THE FLAGS 
TRNSWT 
ieee 

sSAVE RO - RS 
#BIT12,RMCS2(R4)- 31S "NED* SET ? 
1$ 3 YES 
R1 
R3 
DRVACT(R1) sDRIVE ACTIVE? 
5$ TBR IF NO 
223 :BR IF IN ACTIVE 
DPRQS(R1) ;PORT REQUEST 

‘BR F NOT 
TRNSWT ,R2 GET THE ‘*TRANSFER WAIT’ QUEUE 
R1,DTUW ;DID THIS DRIVE HAVE AN I/0 IN PROGRESS? 
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| 653 040262 001402 BEQ 2$ BR IF YES 
654 040264 004737 044120 JSR PC,GETREG ;GET THE DPB POINTER 
655 040270 008702 2$: TST R2 [QUEUE ENTRY FOR DRIVE ? 
040272 001413 BEQs4S ; NOT 
657 040274 032764 010000 000010 BiT #B81T12,RMCS2(R4) :"NED* SET ? 
658 040302 001404 BEQ T 
659 040304 912762 100002 000016 MOV #BITI5!B1TO1, r6(k2) SET "DRIVE NON-EXISTENT’ INDICATOR 
661 040314 012762 102000 000016 3S: MOY #BIT15!BIT10, 160g) SET ‘NON=CLEARABLE PARITY’ ERROR INDICATOR 
: JSR SVRH70 SAVE RH/RM REGISTERS 
663 040322 012763 177777 035726 4$: MOV Al i ao STOP. THE TIMER me 
040330 105061 035624 CLRB DR VACT (Ri sSET ‘DRIVE ACTIVE My IDLE 
665 040334 05061 035664 CLRB DPROS(R1). ;CLEAR PORT REQUEST FLAG 
040340 020137 035746 CMP R1,DTUW 31S be DRIVE SETUP FOR A TRANSFER 
667 040344 001005 BNE 5$ BR IF NOT 
040346 012737 177777 035746 MOV #-1,DTUW sRESET THE INDICATOR 
669 040354 5037 035674 CLR TRNSU Be ;CLEAR THE TRANSFER QUEUE 
670 040360 105061 035702 5$: CLRB ——«ULDF [CLEAR UNLOAD FLAG 
671 040364 032764 000010 BIT TiS. Ames2 (RG) ;"NED* SET ? 
672 ; BNE 6$ BR IF YES 
673 040372 520 INC R1 *MOVE TO THE NEXT DRIVE 
674 040374 062703 000002 ADD LR3 
675 040400 042701 177770 BIC #°C7,R1 
676 040404 001314 BNE 1$ ;BR IF MORE DRIVES 
677 040406 012737 177777 035746 MOV 4-1 ,DTUW ZNO DATA TRANSFERS UNDERWAY 
678 040414 005037 035674 CLR TRNSWT ;CLEAR THE "TRANSFER WAIT' QUEUE 
79 040420 004737 04374 JSR PC, CLRQUE ;CLEAR ALL OF THE REQUEST QUEUES 
0404624 012764 000010 MOV ACLR,RMCS2(R4) “DO A MASSBUS INIT. 
681 040432 000406 BR 7$ * CONT INUE 
040434 004737 044024 6$: JSR PC,EMPTYQ ;CLEAR THE ap Be S QUEUE 
683 040440 105061 035634 CLRB DRVSTA(R1) SET DRIVE TO OFFLINE 
040444 105061 035644 CLRB DRVTYP(R1) CLEAR THE phe TYPE INDICATOR 
685 040450 004737 043402 7$: JSR PC,SET.IE SET ""IE'* WITHOUT ‘‘TRE‘ 
686 040454 104413 RESREG ;RESTORE RO - ‘4 
687 040456 000207 $M RETURN 
689 ; LOOK AHEAD ROUTINE 
690 
691 :CALL 
692 F MOV ADRVNUM,R1 DRIVE NUMBER 
693 s MOV DPB ,R2 sPOINT TO DPB 
694 Z JSR RO,LA 3;GO CHECK THE WINDOW 
695 2 RETURN1 * ERROR RETURN 
696 3 RE TURN2 ZSTART A SEARCH 
+46 2 RETURN3 START A DATA TRANSFER 
699 040460 013704 035762 LA: MOV RMADR ,R4S :GET RMCS1°S ADDRESS 
700 040464 010164 000010 MOV —«RT.RMCS2(R4) —«: SELECT DRIVE 
701 040470 004037 042722 JSR —-ROLRD.RM READ DRIVE STATUS 
040474 12 RMDS 
703 040476 040626 4$ ZERROR RETURN ADDRESS 
704 040500 042716 157577 BIC Bost (SP) ;ON CYLINDER ? 
705 040504 022726 000200 (MP «#200, ( :PIP=0,DRY=1? 
040510 001044 BNE 3$ 
707 040512 105261 035712 INCB LACNT(R1) ‘IN CREMENT THE LOOK ae COUNT 
708 040516 126137 035712 035770 CMPB —s LACNT(R1).MXLACT’ EXCEED MAX? 
709 040524 003033 BGT 2$ BR IF YES 


SEQ 0163 


ae 
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710 040526 
711 32 


766 040762 


116203 
3 


000910 
000340 
042722 


000020 


004000 
035772 
035774 
035712 


040122 


000001 


035762 
035746 


040700 
041154 
035700 


035624 
177777 


177777 
035674 
035674 
000200 


00001 
042722 


035722 
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177776 


035700 


035746 
035726 


000016 


MOVB 10(R2) ,R3 
SWAB R3 
ASR R3 
ASR R3 
MOV #340,PS 
JSR RO,RD.RM 
RMLA 
4$ 
CMP (SP) ,RMLA(R4) 
BEQ 
TST (SP) + 
BR 3$ 
7$: SUB (SP)+,R3 
BGE 1$ 
ADD #<32.*64.>,R3 
1$: CMP MXDLTA,R R3 
BLT 3$ 
CMP MNDLTA,R3 
BGE 
2$: CLRB LACNT(R1) 
TST (RO) + 
3$: TST (RO) + 
BR 5$ 
4$: JSR PC,CI7 
5$: RTS RO 
: INTERRUPT SERVICE ROUTINE 
ISR: VB #1, ACTDRV 
SAVREG 
MOV RMADR ,R4 
MOV DTUW,R1 
BLT 1$ 
JSR PC,TD 
BR 2$ 
1$: R PC,SC 
2$: RESREG 
CLRB ACTDRV 
RTI . 
; TRANSFER DONE ROUTINE 
CLRB DRVACT(R1) 
MOV #-1,DTUW 
ASL R 
MOV #-1, TIMER(R1) 
ASR R1 
MOV TRNSWT ,R2 
CLR TRNSWT 
BIS #B1TU7,16(R2) 
MOV R1,RMCS2(R4) 
JSR 0,RD.RM 
RMCS1 
C17 
ROL (SP) + 
BMI 3$ 
TST SAVEFG 


:GET ae SECTOR ADDRESS AND 
MULT - BY 64=-ALIGN WITH 
;LOOK AHEAD REGISTER 


PRIORITY LEVEL ‘7°’ 
sREAD LOOK AHEAD REGISTER 


— LA NUMBER ? 
NO. CLEAR STACK 
CALCULATE THE DELTA 


MAKE THE DELTA POSITIVE 
CHECK THE DELTA TO SEE 
:IF IT IS WITHIN THE 
sWINDOW---IF YES, ZERO 
;THE LOOK AHEAD COUNT 
ZAND TAKE THE 1/0 EXIT 


ADJUST THE RETURN ADDRESS 
*PROCESS THE ERROR 
£ TURN 


2 SET "ACTIVE DRIVER'’ FLAG 
;SAVE RO - R5 


V 
;ADDRESS OF RHSCS1 
o-¥ "DATA TRANSFER UNDERWAY'’ — 
BR IF _NO DATA TRANSFER UNDERWA 
:CALL TRANSFER DONE 


[CALL SPECIAL Spares 


[RESTORE RO - 
:CLEAR "ACTIVE DRIVER’’ FLAG 
RETURN 


:SET DRIVE ACTIVE INDICATOR TO IDLE 
NO DATA TRANSFERS UNDERWAY 


CANCEL TIMEOUT 


:GET ‘DPB’' ADDRESS FROM THE 
a ge oe WAIT QUEUE--CLEAR QUEUE 


2 SET DONE 
SELECT THE DRIVE 
; TRANSFER ERROR(TRE=1) ? 


;BR IF YES 
;SAVE THE RH/RM REGISTERS? 


SEQ 0164 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0165 
767 040766 100002 BPL 1$ :BR IF NO 
768 040770 004737 . 043264 JSR PC, SVRH70 TYES==SAVE THE REGISTERS 
770 040774 004737 041054 1$: JSR PC; WC.HK SEE IF giRITE CHECK TO BE PUT IN QUEUE 
774 041000 004737 044120 JSR PC,GETREQ :GET DPB POINT 
775 041004 005702 TST R2 ‘ENTRY FOR DRIVE ? 
776 041006 001403 BEQ 2$ ‘BR IF NOT 
777 041010 004737 037042 JSR PC OPT [CALL OPTIMIZER 
778 041014 000457 BR SC :CHECK OTHER DRIVES 
779 : THE RELEASE DRIVE COMMAND IS FORECD TO ENTER FOR DUAL PORT OPERATION 
780 041016 012714 000113 2$: MOV #113, (R4) sRELEASE THE DRIVE 
781 041022 000454 BR SC CHECK FOR OTHER DRIVES 
782 041024 052762 100100 000016 3$: BIS #81115 1B1T06, 16(R9) sSET DATA ERROR FLAG 
783 041032 004737 044024 JSR PC, EMPTY sEMPTY THE 'DRIVE'S WAIT’ QUEUE 
784 041036 004 37 043264 JSR PC EVRHYO :SAVE THE RH/RM REGISTERS 
785 041042 012714 040111 MOV #46711, (R4) sISSUE A ‘DRIVE CLEAR'’ 
786 041046 012714 000113 MOV #113, (R4) :ISSUE A RELEASE TO THE DRIVE 
087 041052 000440 BR SC :CHECK FOR OTHER DRIVES 
789 
791 041054 122762 000002 000024 WC.HK: CMPB #2,$CODE(R2) ;LAST OPERATION WRITE DATA ? 
792 041062 001404 BEQ 1$ [BR IF IT WAS 
3 041064 122762 000003 000024 CMPB so #3, SCODE (2) LAST OPERATION WRITE HEADER & DATA ? 
794 041072 001027 BNE 2$ ‘BR IF NOT 
795 041074 004037 044044 1$: JSR RO, DRVQUE [PUT THE OPERATION IN THE QUEUE 
79% 041100 000424 BR 2$ ;QUEUE IS F 
797 041102 005062 000016 CLR 16(R2) > CLEAR DONE* ‘BIT IN DPB 
798 041106 116262 002116 000027 MOVB  $RMCS1(R2),$PREVO(R2)  ;SAVE WRITE OPERATION CODE 
799 041114 016262 000012 000034 MOV SCYL(R2) ,$PREVA+2(R2)  :SAVE CYLINDER 
800 041122 016262 000010 000032 MOV SSEC (RQ) ; SPREVA(R2) :SAVE SECTOR AND TRACK ADDRESSES 
801 041130 142762 000002 000024 BICB #2,$CODE(R2)  ;:CHANGE WRITE TO CHECK 
802 041136 142762 000020 000002 BICB ss #20, SCORND (R2) SCHANGE DRIVER CODE TO WRITE CHECK 
803 041144 152762 000010 000002 BISB  #10.$COMND(R2) :FINISH CHANGING CODE TO WRITE CHECK 
804 041152 000207 2$: RTS PC TEXIT 
307 ;SPECIAL CONDITION ROUTINE 
809 041154 116403 000016 SC: MOVB = RMAS(R4),R3 :READ ''RMAS'' 
810 041160 001012 BNE 2$ [BR IF ANY ‘ATA' BITS SET 
811 041162 004037 042722 JSR RO,RD.RM :READ CONTROL AND STATUS REGISTER 
812 041166 000000 RMCS1 
813 041170 040222 C18 
814 : 1$ EXIT IF FAIL TO READ 
815 041172 106126 ROLB = (SP) + S18 ‘IE''=1? 
816 041174 100403 BMI 1$ :YES, NO DRIVES TO CHECK 
817 041176 104001 EMT 1 [REPORT AN ILLEGAL INTERRUPT 
818 041200 004737 043402 JSR PC,SET.IE :SET INTERRUPT ENABLE 
819 041204 000207 1$: RTS PC : RE TURN 
820 041206 046 2$: CLR -(SP) PROCESS, ALL DRIVES THAT HAVE 
821 041210 110316 MOVB R33, (SP) AN ' =1 
822 041212 012703 000001 MOV #1.R3 
823 041216 005001 CLR R1 
824 041220 030316 $(3: BIT R3, (SP) sATA=1? 
825 041222 001005 BNE sc§ :YES 
826 041224 005201 SC4 INC 1 ‘MOVE TO THE NEXT DRIVE 
827 041226 106303 ASLB—sR3 
828 041230 001373 BNE SC3 ;BR IF MORE TO CHECK? 
829 041232 005726 TST (SP) + CLEAN OFF THE STACK 
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041234 207 RTS PC :RETURN TO USER 
831 041236 105761 035654 SC5: TSTB —_—DPINT(R1) HINITIALIZING THE DRIVE ? 
041242 001402 BEQ 1$ ‘BR IF 
833 041244 000137 042152 JMP $C13 ‘PROCESS THE DRIVE 
041250 105761 035664 1$: TSTB —- DPRQS(R1) ;PORT REQUEST OUTSTANDING ? 
835 041254 001402 BEQ 2$ T 
836 041256 000137 042152 JMP $C13 :START THE OUTSTANDING COMMAND 
837 041262 105761 035634 2s: TSTB — DRVSTA(R1) [CHECK THE DRIVE STATUS 
1266 003023 BGT 5$ ‘BR IF ONLINE 
839 041270 105761 035702 TSTB —sULDFLG(R1) :UNLOAD IN PROGRESS? 
840 041274 003420 BLE 5$ IF NOT 
841 041276 004737 044120 JSR PC,GETREQ “GET DPB POINTER 
B42 041302 004737 043264 JSR PC; SVRH70 :SAVE THE RH/RM REGISTERS 
843 04 004737 042102 JSR PC.SC12 :SAVE RMDS, RMER1, RMER2, AND 
844 ZALSO DO A DRIVE INIT (DRVINT) 
845 041312 105761 035634 TSTB —DRVSTA(R1) :DID DRIVE COME ONLINE? 
846 041316 003414 BLE 6$ 
847 041320 032737 040000 035614 BIT #BIT14,RMERRS “WAS THERE AN ERROR? 
848 041326 001000 BNE 3$ [BR IF ERROR 
849 ; JMP $¢11 =NO ERROR 
850 041330 013705 035616 S$: MOV RMERRS+2,R5 ZYES == PICKUP RMER1 AND 
851 041334 000500 BR SC6A [GO PROCESS THE ERROR 
852 041336 105761 035624 5$: TSTB — DRVACT(R1) [DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
853 041342 001027 BNE SC6 [BR IF EITHER 
854 041344 004737 042102 JSR PC,SC12 : SAVE RMS, pPMERT RMER2, AND RMMR2 
041350 105761 035654 6S: TSTB —C—DPINT(R1) : TRYING TO INIT THE DRIVE ? 
857 041354 0013 BNE 4 ‘BR IF YES, CH ECK ON MORE DRIVES 
858 041356 105761 035634 TSTB DRVSTA(R1) s CHECK ON DRIVE' S STATUS 
1362 100412 BMI $ [BR IF UNSAFE 
364 032737 020000 035620 BIT #B1T13.RMERRS+4 :ADDRESS PLUG CHANGED ? 
861 041372 001011 BNE 8$ ‘BR IF YES 
862 ; MOV #113,-(SP) ZRELEASE COMMAND 
863 041374 012746 000111 MOV #111.-(SP) [DRIVE CLEAR 
864 041 037 043076 JSR RO,WRT.RM :WRITE THE COMMAND INTO RMCS1 
865 041404 RMCS1 SREGISTER INDEX 
041 041742 Sc8 [PARITY EXIT ADDRESS 
867 041410 011605 7$: MOV (SP) .RS [PICKUP (RMAS) BEFORE THE ERROR CALL 
041412 104002 EMT 2 [REPORT THE UNEXPECTED ATTENTION 
869 041414 000703 BR $C4 [GO CHECK FOR MORE ATA'S 
870 041416 8$: 
041416 104005 EMT 5 ;REPORT THE ADDRESS PLUG CHANGE 
871 041420 000701 BR SC4 [CHECK FOR MORE DRIVES 
872 041422 006301 ASL R1 :SETUP TO ADDRESS WORDS 
873 041424 012761 177777 035726 MOV #-1,TIMER(R1)  :STOP THE TIMER 
874 041432 006201 ASR R1 TRESTORE THE DRIVE ADDRESS 
875 041 004737 044120 JSR PC,GETREQ ZGET THE DPB POINTER FROM THE QUEUE 
876 041440 010164 000010 MOV R1.RMCS2(R4) = SELECT DRIVE 
877 041444 000137 041772 JMP Sci [PROCESS THE SEARCH 
878 041450 004037 042722 JSR RO,RD.RM TREAD THE RM'S STATUS REG. 
879 041454 000012 RMD 
880 041456 041742 Sc8 
881 041460 011605 MOV (SP) RS ZAND PUT IT IN RS 
882 041462 006126 ROL (SP) + WAS THERE AN ERROR? 
883 041464 100407 BMI 1$ [BR IF ERROR 
884 041466 105761 035624 TSTB — DRVACT(R1) :CHECK DRIVE'S STATE 
885 041472 003137 BGT $C11 :BR IF DRIVE ACTIVE WITH ORDER 








CZRMUAO RMOS/3/2 PERF EXER 
RH/RM DRIVER INITIALIZATION CODE 


886 041474 052762 100210 
887 041502 000470 

888 041504 004037 042722 
889 041510 000014 

890 041512 041742 

891 041514 012605 

892 041516 737 Ronee 
893 041522 012746 00011 
894 041526 037 043076 
895 041532 

896 041534 041742 

897 041536 006105 

898 041540 1004 

899 041542 005702 

900 041544 001447 

901 041546 052762 100240 
902 041554 000443 

903 041556 004037 042722 
904 041562 1 

905 041564 041742 

906 041566 011605 

907 041570 0061 

908 041572 100011 

909 041574 112761 177777 
910 041602 004737 043264 
911 041606 052762 

912 041614 

913 041616 032705 010000 
914 041622 001015 

915 041624 112761 177777 
916 041632 112761 000001 
917 041640 006301 

918 041642 012761 072460 
919 041650 006201 

920 041652 000137 041224 


20 
921 041656 052762 100220 
o56 041664 105061 035624 


924 041670 004737 044142 
925 041674 ete ah 035702 


00. 
927 041702 105061 035702 
928 041706 116164 035750 
929 041714 105761 035634 
9 7 100406 


932 722 012746 000111 
933 041726 004037 043076 
934 041732 000000 
935 041734 041742 

000137 041224 


936 041736 1 

937 041742 105761 035624 
938 041746 001405 

939 041750 004737 044120 
940 041754 004737 040122 


941 041760 000402 
942 041762 
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000016 _ 
1$: JSR RO.RD.RM 
RMER1 
Sc8 
MOV (SP)+,R5 


JSR PC,SVRH70 
MOV #111,=(SP) 
JSR RO,WRT.RM 


#8111581 107 'B1 705, 16(R2) 


READ ERROR REGISTER #1 


sAND SAVE IT IN R5 
SAVE _RH/RM REGISTERS 
ISSUE A DRIVE CLEAR 


a 
SC6A: ROL R5 7 WAS Ma welt CONDITION =1? 
BMI 1$ :BR YES 
TST R2 ANYTHING IN QUEUE ? 
BEQ SC7 ;BR I 
000016 “5 #81115 !B1107 !81T05,16(R2) ; INFORM USER OF ERROR 
1$: JSR RO,RD.RM READ DRIVE STATUS REG. #1 
RMDS 
SC8 
MOV (SP) ,R5 2 SAVE, RMDS IN R5 
ROL (SP)+ 3" ERR’ =1? 
BPL 2$ BR IF ae CLEARED 
035634 MOVB #~1 ,DRVSTA(R1) oars IS_UNSAF 
JSR PC,SVRH70 AVE RH/RM REGISTERS 
000016 hy wB{TIS1B1T12, 16682) : INFORM USER OF UNSAFE ERROR 
2$: BIT #B1T12,R5 :'MOL’* = 1 ? 
BNE 3$ :BR_IF YES 
035624 MOVB #-1,DRVACT(R1) ;ACTIVE ERROR RECOVER 
035634 i 4+ aaaastatiaaias 2: ONL INE 
035726 yr £20000. . TIMER CRT) sSTART 30 SECOND TIMER 
JMP SC4 
000016 3$: BIS AES allah 16(R2) ; INFORM USER OF ERROR 
SC7: CLRB DRVAC sDRIVE IS IDLE 
: JSR at eMPrYO. :DUMP THE QUEUE 
JSR PC; POPQUE REMOVE THE QUEUE 
TSTB ULDFLG(R1) [UNLOAD IN RMOGRESS OR QUEUE? 
BGT 1$ 7;BR_IF NOT 
CLRB ULDFLG(R1) CLEAR UNLOAD FLAG 
000016 1$: MOVB sete Af, ,RMAS (R4) CLEAR ATTENTION BIT 
TSTB DRVSTA(R1) ;1S THE DRIVE UNSAFE ? 
BMI 2s :BR IF IT IS 
: MOV #113,-(SP) RELEASE COMMAND 
MOV #111,~-(SP) DRIVE CLEAR COMMAND 
JSR RO,WRT.RM ;WRITE THE COMMAND INTO RPCS1 
RMCS1 sREGISTER INDEX 
SC8 sPARITY EXIT ADDRESS 
2$: JMP SC4 CHECK FOR MORE DRIVES 
SC8: a cre #IS DRIVE IDLE? 
JSR PC,GETREQ GET DPB POINTER 
JSR PC,CI7 ;PROCESS THE PARITY ERROR 
13 BR 2s : CONT INUE 


SEQ 0167 


; INFORM USER OF ERROR RECOVER COMPLETION 


998 
999 042274 


CZRMUAO RMOS/3/2 PERF EXER 
RH/RM DRIVER INITIALIZATION CODE 


035902 
035702 
035624 
035750 
044142 
000200 
035722 
043264 
035750 
035750 
177777 


177777 
000010 
035750 
035654 


035654 
036212 


035634 


044120 
140000 
043264 
044142 
004000 


060000 
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035676 


000016 


000016 
035676 
035726 


035614 


035622 


035726 


000016 


000016 


000000 


035726 


2$: 


SCl2: 


1$: 


S$C13: 


1$: 


2s: 


PC,C17 yPROCESS THE PARITY ERROR 
PC,C17B ZPROCESS THE UNCORRECTABLE PARITY ERROR 
S CHECK MORE DRIVES 
ULDFLG(R1) UNLOAD IN PROGRESS’? 
ULDFLG(R1) :CLEAR UNLOAD FLAG 
DRVACT(R1) “SET DRIVE IDLE 
ATABIT(R1),SRCHWT ;DOING A SEARCH OPERATION FOR 
70 COMMAND? 
:BR IF ves 


PC ,POPQUE ; REMOVE REQUEST FROM QUEUE 
WB1TO7,16(R2)  :SET ' I 

SAVEFG _—, THE REGISTERS? 

2s :BR F NO 

PC,SVRH70 YES=-SAVE ALL OF THE RH/RM REG'S 


ATABIT(R1) JRMAS (R4) CLEAR ATTENTION BIT 
adalat , SRCHWT pehEAR IMPLIED SEEK SET 


: WORD 
+ STOP CLOCK 


#~1,TIMER(R1) 

R1 sRESTORE R1 

PC,OPT START A REQUEST 

SC4 :CHECK_FOR MORE DRIVES 
R1,RMCS2(R4) 7SELECT DRIVE 


RMDS(R4) ,RMERRS :SAVE THE FOUR REGISTERS THAT 
RMER1 (R4) ,RMERRS+2 sWILL TELL US SOMETHING 
RMER2(R4) -RMERRS+4 

RMMR2 (R4) , RME 


RRS+6 
RO, DRVINT : INIT. THE STATE OF THE DRIVE 
1$ TAKE ERROR EXIT 
PC ;RETURN 
(SP) + sPOP PC OFF OF THE STACK 
sc8 =PROCESS THE PARITY ERROR 
R1 ;SETUP TO ADDRESS WORDS 
de aaa : STOP THE TIMER 


R1,RMCS2(R4) SELECT THE DRIVE 
ATABIT(R1) ,RMAS(R4) 3CLEAR_THE =the ea BIT 
2 (R1) ; INITIALIZING THE DRIVE ? 


IF 
CLEAR THE INIT INDICATOR 


DPINT(R1) 
RO,DRVINT :GO INIT THE DRIVE 
[DUMMY PARITY ERROR RETURN 

DRVSTA(R1) DRIVE ONLINE ? 
2$ 7BR_IF YES =~ START ORDER 
R2 suet fp a FOR THE DRIVE 

PC,GETREQ GET DPS ADDRESS 
#B1T15'BIT14, 16ch3) ; INFORM USER THAT DRIVE OFFLINE 
PC,SVRH70 SAVE THe REGISTERS 

PC; EMPTYQ SEMPTY THE REQUEST 
PC ,POPQUE REMOVE THE QUEUE 
#B1T11,RMCS1(R4) :DVA SET ? 
7 SET THEN CALL OPT 
S70000. FEMERCRI) 





SEQ 0168 


1000 042276 
1001 042300 
1002 042304 


333 


S385 


p= 
RRRRRK 


anh aad ao cal aa ad od ed 
WONAUSWNH—O 
ee 
RA 


Sssssegesessesessesss 
RES 
RERLLL 
SURE 
ass 
ALOCO 


RE 
Re 
Mr 

$ 


366 
1025 042370 
1026 042374 
1027 042376 


1056 042454 





000402 
004737 
000137 


010146 


001030 
013702 
020137 


CZRMUAO RMO5/3/2 PERF EXER 
RH/RM DRIVER INITIALIZATION CODE 


037042 
041224 


035700 
000001 


035726 
000002 
042400 


000010 


035701 


035762 
000010 
042722 


035654 
035664 


035674 
035746 
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BR 3$ 

4$: JSR PC,OPT 

3$: JMP SC4 

RM TIMER ROUTINE 

> CALL 

: MOV ATIME ,~(SP) 

: JSR PC ,RMTMR 

RMTMR: TST ACTDRV 
BNE 

035701 MOVB #1,ACTSTR 

SAVREG 
CLR R1 
CLR R3 

1$: TST TIMER(R3) 
BLT $ 

035726 SUB 2(SP) , TIMER(R3) 

BGT 2$ 
JSR PC,STO 

2$: INC R1 
TST (R3)+ 
CMP #8.,R1 
BGT $ 

3$: RESREG 
CLRB ACTSTR 

4$: MOV (SP) +, (SP) 
RTS PC 


:SOFTWARE TIMEOUT ROUTINE 


SCALL: STO 
: MO 


: V #DRVNUM ,R1 
: JSR PC,STO 

3 RETURN 

STO: MOV R1,-(SP) 


RMADR ,R4 
MOV R1,RMCS2(R4) 
JSR RO,RD.RM 


S 
: STO5 
STO9 
TSTB (SP)+ 
BM1 STO2 
STO1: TSTB DPINT(R1) 


BNE 0. 
TSTB DPRQS(R1) 
BNE T 


STO02 
MOV TRNSWT ,R2 
CMP R1,DTUW 


:START THE PENDING REQUEST 
PROCESS OTHER DRIVES 


sELASPED TIME IN MILLISECONDS ON THE STACK 
CALL RMOS TIME ROUTINE 


;CHECK "‘ACTDRV & ACTSTR'’ 
3 1F NON ZERO EXIT 

;SET ‘‘ACTSTR*’ 

;SAVE RO = RS 

ZSTART WITH DRIVE 0 

71S Ne TIMER RUNNING? 
[BR IF NO 


:COUNT THE INTERVAL 

7BR IF NO SOFTWARE TIMEOUT 
CALL SOFTWARE TIMEOUT ROUTINE 
;MOVE TO NEXT DRIVE 


OUT yg DRIVES? 
F_NO 
RESTORE R 


RO = R5 
ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 
ZADJUST THE STACK 
RETURN 


;NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
OR GREATER 


:DRIVE NUMBER 
CALL 


ZSAVE R4 

;GET ADDRESS OF “RMCS1" 
>SELECT THE DRIVE 

TREAD “DRIVE STATUS REG’ 


z1S ‘DRY''=1? 

BR IF YES 

: TRYING TO INTIALIZE THE DRIVE ? 
ae te PORT REQUEST FOR THE DRIVE ? 


;BR IF 
PICKUP TRANSFER WAIT QUEUE 
; TRANSFER UNDERWAY ON THIS DRIVE? 


SEQ 0169 


ee 


1057 042460 


SoS 
co 
RR 
ie 
g 


SESSFELESS 


et YS SS SY YS YS 


AN3S 


RERRRERLLELE LP 


NMronrorerern 


ad and and aed 
oooo°00oo 
ou 


“N 
Ms 


3 
RERL 

g 

o 


CREE RERRER ETS 
RRP 


SELEERELLES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Se ee ee eee eee 


nd and ond od 
Who 





CZRMUAO RMO5/3/2 PERF EXER 
RH/RM DRIVER INITIALIZATION CODE 


042710 


044120 
101000 000016 
043264 


035624 
035702 


035674 
177777 += 035746 
000016 
035750 
035654 
035664 


035654 
035664 

177777 035726 
040222° 

035654 

035634 

177777 035726 
044120 


140000 000016 
177777 035726 
035664 
044120 
100004 000016 


044024 
043264 





B 14 
MACRO VO03.01 11-APR-80 14:52:06 PAGE 10-19 


BEQ 1$ BR IF YES 
JMP Z1F NOT DON'T BOTHER DRIVES 
JSR PC, GETREQ :GET DPB ADDRESS 
1$: BIS #eiT\>:B1T09, 16(R2) zSET THE ERROR FLAGS 
JSR PC, SVRH70 :SAVE_RH/RM REGISTERS 
; MOV #CLR, RMCS2(R4) z'INIT'’ THE MASS BUS 
CLRB — DRVACT(R1 SDRIVE IS IDLE 
CLRB UTDFLOCRI) ZCLEAR THE UNLOAD FLAG 
CLR TRNSWT ZCLEAR DPB ADDRESS 
MOV #-1,DTUW ZCLEAR THE TRANSFER DRIVE # 
BR $T09 :DON'T BOTHER OTHER DRIVES 
STO2: MOVB  RMAS(R4) TREAD ATTENTION REG 
BIT ATABIT CR R5 i1s ATTENTION FOR THIS DRIVE UP ? 
TSTB ~—sCDPIINT((R1) :TRVING TO INTIALIZE THE DRIVE ? 
T [BR IF YES = DRIVE NOT ONLINE 
TSTB  DPRQS(R1) ZOUTSTANDING PORT REQUEST FOR THE DRIVE ? 
STO7 ZBR IF YES = NO RESPONSE TO REQUEST 
STO9 ZOTHER WISE EXIT 
ST@3: TSTB  DPINT(R1) ZINITIALIZING THE DRIVE ? 
BNE 1$ [BR IF INIT PENDING 
TSTB — DPRQS(R1) :PORT REQUEST PENDING ? 
BEQ ST F NOT 
1$ MoV #1 TIMER (R3) :$TOP THE TIMER 
STOS: JSR pC C18 ‘60 went THE PARITY ERROR 
ST06: CLRB  DPINT(R1) ZCLEAR THE INITIALIZE INDICATOR 
CLRB — DRVSTA(R1) :SET UNIT OFFLINE 
MOV #~1,TIMER(R3) :STOP THE TIMER 
JSR PC, GETREQ :GET THE DPB ADDRESS 
TST 2 :REQUEST IN QUEUE ? 
BEQ STO9 ‘BR IF NOT 
BIS #B1T15:B1T14, 16ch2> ad 7 INFORM THE USER DRIVE NOT AVAILABLE 
STO7: MOV #-1,TIMER(R3)  :STOP THE TIMER 
CLRB — DPRQS(R1) ZCLEAR PORT REQUEST INDICATOR 
JSR PC, GETREQ [GET DPB ADDR 
TST R2 : QUEUE ENTRY FOR DRIVE ? 
BEQ STO9 
MOV WB1T15!B1T2,16(R5) ; INFORM USER OF PORT REQUEST ERROR 
STO8: JSR .EMPTYQ : THE QUEUE FOR THE DRIVE 
JSR PC; SVRH70 :SAVE THE REGISTERS 
STO9: MOV (SP) +,R4 TRESTORE R4 
MOV (SP) +,R3 SRESTORE R3 
MOV (SP) +,R2 SRESTORE R2 
MOV (SP)+.R1 SRESTORE R1 
RTS PC RETURN 
;ROUTINE TC READ A RH/RM REGISTER 
7 CALL 
: JSR RO,RD.RM :GO READ A REGISTER 
: INDEX [REG. INDEX FROM BASE 
: ER TERROR ADDRESS=-PROCESS ERROR STARTING 
: sAT THIS ADDRESS 
: RETURN [CONTENTS OF REG. IS ON THE STACK 





SEQ 0170 


RMUAO_ RMO 
RH/RM DRIVE 

N18 042722 
12 838 
117 042732 
118 042740 
119 042744 
120 042746 
121 042750 
122 042752 
123 042760 
124 042764 
125 042770 
126 042774 
127 042776 
128 043002 
129 043006 
130 043010 
131 043012 
132 043014 
3014 
133 043016 
134 043022 
135 043024 
136 043030 
137 043032 
138 043034 
139 043036 

140 

1 

2 


, at at 
Ww 


3056 


Beeneannananeneannas 
Nm 


SESE SEES SEVEN sss 
etatettetatete 
EYSNSRVRO 


WWWWNWWWW 
and aed ae ed ed ced ceed ed 





5/3/2 PERF EXER 
R INITIALIZATION CODE 


013737 
011646 
013737 

037 
013727 
000000 


013737 


035760 043064 
035762 042746 
042746 


042750 000002 
035762 
000010 
010000 
172760 
020000 


035746 


040000 


040000 


035762 043060 
043060 


043250 
043164 


035760 
000002 
043166 
000150 


042722 


043164 


RD.RM: 


1$: 


2s: 


3$: 


D 
RD.RM2: 


RD.RM3: 


MOV 
RD.RM4: RTS 


MCPEMX ,RD.RM2 
(SP) ,=(SP) 


RMADR RD. ADR 
(RO)+,RD.ADR 
acPC)+, (PCs 
0 
RD.WRD,2(SP) 
RMAD, 

#RMCS2, (SP) 
#B1T12,a(SP)- 
RD. RM3 
@RMADR , ~ (SP) 
#B1T15, (SP) 
(SP)+, (RO)+ 
RD .RMG 


3 

DTUW 

2s 

#B1T14, (SP) 
2s 

(SP) + 
RD.RM3 
#B1T14, (SP) 
(SP) 
RMADR , 3$ 
3$ 
(SP)+,a(PC)+ 
(PC) + 

3 

RD.RM1 


(RO) ,RO 
(SP)+, (SP) 
RO 


ROUTINE TO WRITE A REGISTER 


CALL 


Bete Be Be ® 


WRT .RM 


DATA,~(SP) 
RO, RM 


MCPEMX ,WRT .R2 
2(SP) ,WRT .WD 
(SP) +, (SP) 
(RO) +, WRT .AD 


1 
210 MT A 
RO,RD.RM 


}S Bes 
MACRO V03.01 11-APR=80 14:52:06 PAGE 10-20 


MAX, RETRYS ALLOWED 
2SAVE RO FOR RETURN 
:FORM THE DESIRED ADDRESS 
USING THE BASE AND 
sREAD THE DESIRED REG 
sADDRESS IS FORMED HERE 


; HE USER 
sPUT THE ADDRESS ON THE STACK 
2FORM THE ADDRESS OF RMCS2 


[BR IF DRIVE NON-EXISTENT 
RMCS1 


;CHECK THE ‘NED 
sREAD 

DID MCPE SET? 
BR IF YES 
sADJUST FOR RETURN 
;EXIT 


REPORT *MCPE"’ ERROR 
DATA TRANSFER UNDERWAY? 


‘TRE’ = 1 ? 
NO 


:YES--CLEAN OFF THE STACK AND 

7 TAKE THE FATAL ERROR eXIT 

:CLEAR *MCPE*’ BY SENDING A ‘‘l'' TO ‘'TRE*’ 
sPOSITION BEFORE WRITING 

zFORM ADDRESS OF HIGH BYTE 


WRITE THE HIGH BYTE OF RMCS1 
zADDRESS STORAGE 
EXCEEDED MAX. RETRYS 


:BR_IF NO 
FATAL ERROR EXIT 


DATA TO BE LOADED ON THE STACK 
CALL _THE ROUTINE TO LOAD(WRI 
2 INDEX OF THE REGISTER TO BE 
sADDRESS TO RETURN TO ON AN ERROR 
ERROR FREE RETURN 


sMAX_RETRYS ALLOWED 
sSAVE THE WORD TO WRITE 


;ADJUST THE S$ 


: TACK 
:GET INDEX OF REGISTER TO BE WRITTEN 


OR DATA TRANSFERS? 
OLD Al6 & Al7, & PSEL 


7BR 4 NOT RMCS1 


71S THE COMMAND F 

2 YES--DON'T GET THE 
3NO--~COMBINE A168A17, & PSEL WITH 
: THE COMMAND BEFORE SENDING IT TO 





y 


HE INDEX 
ISTER OF THE RM DRIVE 


1170 043140 
1171 043142 
1172 043144 
1173 043150 
1174 043154 
1175 043162 
1176 043164 
1177 043166 
1178 043170 
1179 043174 
1180 043200 
1181 043204 
1182 043206 
1183 043212 
1184 043214 
1185 043216 
1186 043222 
1187 043224 
1188 043232 
1189 043236 
1190 043240 
1191 043242 
1192 043244 
1193 043246 
1194 043250 
1195 043252 
1196 043254 
1197 047256 
1198 045260 
1199 043262 
1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 043264 
1208 043266 
1209 043270 
1210 043272 
1211 043276 
1212 043302 
1213 043 
1214 043310 
1215 043314 
1216 043322 
1217 043324 
1218 043332 
1219 043334 
1220 043336 
1221 043340 
1222 043344 
1223 043346 
1224 043350 
1225 043352 
1226 043360 


CZRMUAO RMOS/3/2 PERF EXER 
RH/RM DRIVER INITIALIZATION CODE 


043254 


177770 
043165 
035762 


035762 
000010 
010000 
042722 


000010 


177776 
042722 


035762 
000010 
000014 


043344 
043344 


000200 


042722 
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043166 


043236 


000022 
000010 


(SP) 
#*C7,(SP) 


(SP)+, WRT .WD+1 
RMADR, D 


-A 
(PC) +,aPC)+ 


0 
RMADR ~ (SP) 
ARMCS2, ( 


eS “atsPys 


RO_RD RM 


#B1T03,(SP)+ 
WRT .R4 
-2(RO) ,1$ 
a0. /RD.RM 


4 
(SP) + 
(PC) + 
am 
R1 
GO RO 
R5 


CRO} * 
RO 


3 THE RH/RM 


3FORM THE ADDRESS OF THE DISK REG. 
[LOAD THE DESIRED REG. 
ZWOR TO WR 


BIT 
IF DRIVE NON-EXISTENT 
CHECK FOR PARITY ERROR ON WRITE 


:BR_IF_*PAR=0"' 
:PICKUP THE INDEX 


;READ is Fg 


G. IND 
;RETURN TO THIS ADDRESS ON ERROR 
[REPORT THE PARITY ON WRITE ERROR 


CLEAR OFF THE STACK 


:DECREMENT THE ERROR COUNT 
COUNTER 


RETRY 


sTRY AGAIN IF NOT FINISHED 
+ TAKE THE *PARITY ON WRITE'’ ERROR EXIT 


XIT 
TADJUST FOR ERROR FREE EXIT 


ROUTINE TO SAVE THE RH/RM REGISTERS AS PER DPB+14 


CALL 


SVRH70: 


1$: 


23: 
3$: 


043344 000046 4$: 


JSR 
SAVREG 
TST 


#DPBNUM, R2 
PC,SVRH70 


R2 
6$ 


RMADR ,R4 
ret RMCS2(R4) 


(R2) ,R3 


3$ 
3$ , #RMDB 


:BR 
iter. eae, 


(R3)+ 

4$ 
RO,RD.RM 
0 


(SP)+, (R3)+ 
$ EC2 





:DPB POINTER TO R2 
SAVE THE DRIVES REG'S 


AVE RO - R5 


a 
e 


SELECT DR 
:GE 


7 SAV 
;QUEUE ENTRY FOR THE DRIVE ? 
F NONE 


IVE 
T_THE ERROR TABLE POINTER 


sEXIT_IF NO ADDRESS 
COUNTER & POINTER 


REACHED a BUFFER REGISTER ? 
hg SET ? 
;STORE RMDB AS ZEROES 
; CONT INUE 

THE 17 * Ma REGISTER 


; READ 
:REGISTER 
OR 


RROR RETURN ADDRESS 
STORE THE ng FA CONTENTS 
:REACHED THE END 


SEQ 0172 





PEE AT. CABS lag ian pig AR SNE ME 
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RH/RM DRIVER INITIALIZATION CODE SEQ 0173 
1227 Ob 3368 062737 000002 043344 ADD #2,3$ ; INCREMENT THE REGISTER INDEX 
1228 043370 00075 1$ Z CONTINUE READING THE REGISTERS 
1229 043372 004737 040122 5$: JSR PC,CI7 ZPROCESS THE UNCORRECTABLE PARITY ERROR 
1230 043376 104413 6$: RESREG TRESTORE RO = R5 
ise 043400 000207 RTS pe RETURN 
ice? 21 hte TO SET THE INTERRUPT WITHOUT GETTING A ‘'‘TRE'' 

7 CAL 

1235 : A#DRVNUM,R1 DRIVE NUMBER TO R1 
1236 : JSR PC,SET.IE SET "‘IE"’ 
1¢3 : RETURN 
1239 043402 010446 SET.IE: MOV R4,-(SP) SAVE R4 
1240 043404 013704 035762 MOV RMADR ,R4 :PICKUP ADDRESS OF RMCS1 
1241 043410 010164 000010 MOV R1,RMCS2(R4) sSELECT DRIVE 
1242 043414 011446 MOV (R4) ,=(SP) RMCS1 
1243 043416 052716 040000 BIS #B1T14, (SP) :SET THE ‘‘TRE'' BIT OF THE WORD READ 
1244 0434 000316 SWAB (SP) ADJUST FOR DATO 
1245 043424 112714 000100 MOVB ABITO6, (R4) “SET ‘IE’ 
1246 043430 032764 010000 000010 BIT #BIT12 .RMCS2(R4) 21S 'NED''=1? 
1247 0434 001002 BNE 1 : YES=-CLEAR 
1248 043440 005726 TST (SP)+ [CLEAN OFF THE S ACK 
1249 043442 02 BR 2s 
1250 043444 112664 000001 1$: MOVB (SP)+,1(R4) CLEAR ‘'TRE’’ 
1251 0434 012604 2$: MOV (SP) +,R4 RESTORE R4 
1936 043452 000207 RTS PC ;RETURN TO CALLER 
1254 ;QUEUE COUNT 
1255 0434 000 QCNT: .BYTE 0 DRIVE 0 
1256 0434 000 -BYTE 0O DRIVE 1 
1257 043456 000 -BYTE O DRIVE 2 
1258 043457 000 -BYTE O sDRIVE 3 
1259 043460 000 -BYTE 0 DRIVE 4 

260 043461 000 -BYTE 0O DRIVE 5 
1261 043462 000 -BYTE OQ sDRIVE 6 
1c66 043463 000 BYTE O :DRIVE 7 
ise ;QUEUE INPUT POINTERS 
1266 0434 043546 QINPT: .WORD QDRVO DRIVE 0 
1267 043466 3566 -WORD QDRV1 DRIVE 1 
1268 043470 WORD QDRV2 DRIVE 2 
1269 043472 043626 «WORD QDRV3 DRIVE 3 
1270 043474 3646 -WORD QDRV4 DRIVE 4 
1271 0434 WORD QDRV5 DRIVE 5 
1272 043500 3706 «WORD QDRV6 DRIVE 6 
fe 043502 043726 -WORD QDRV7 sDRIVE 7 
iste ;QUEUE OUTPUT POINTERS 
1277 04 043546 QOUTPT: .WORD QDRVO DRIVE 0 
1278 06 35 : 1 
1 2 
12 12 3 
1 4 
1 5 
1 6 
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8 
3 
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22 043776 
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043726 
043546 
043566 


043746 


016161 
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-WORD QDRV7 ;DRIVE 7 
QSTART: .WORD QDRVO ;DRIVE 0 START ADDRESS 
QSTOP: .WORD QDRV1 ;DRIVE 0 STOP ADDRESS & DRIVE 1 START ADDRESS 
-WORD QDRV2 * STOP DRIVE 1=-START DRIVE 2 
-WORD QDRV3 :STOP DRIVE 2=-START DRIVE 
WORD QDRV4 : STOP DRIVE 3==-START DRIVE 
WORD QDRV5 sSTOP DRIVE 4--START DRIVE 
WORD QDRV6 :STOP DRIVE 5=-START DRIVE 
WORD QDRV7 :STOP DRIVE 6--START DRIVE 
WORD QTERM ;STOP DRIVE 7 
;DRIVE REQUEST QUEUES 
QDRVO: .BLKW 10 
QDRV1: .BLKW 10 
QDRV2: BLKW 10 
QDRV3: BLKW 10 
QDRV4: .BLKW 10 
QDRVS: .BLKW 10 
QDRV6: BLKW 10 
QDRV7: .BLKW 10 
QTERM=. 
: ROUT INE TO CLEAR ALL OF THE REQUEST QUEUES 
CALL 
; JSR PC, CLRQUE 
CLRQUE: SAVREG sSAVE RO = RS 
043454 MOV #QCNT,R2 ;ZERO THE QUEUE COUNTS 
CLR (R2)+ ;DRIVES 0 & 1 
CLR (R2)+ Z VES 2&3 
CLR (R2)+ sDRIVES 4 & 5 
CLR (R2)+ sDRIVES 6 
010 MOV #8. ne sMOVE THE STARTING 
Re seoe MOV #OSTAR sADDRESS OF THE QUEUE INTO 
1$ MOV (R1)+, thos ; THE QUEUE INPUT POINTER 
DEC R3 
BNE 1$ 
000010 MOV #8. ,R3 sMOVE THE ee SDORESS 
043524 MOV AQSTART,R1 ;OF THE QUEUE INTO THE 
2$: MOV (R1)+,(R2)+ ;QUEUVE OUTPUT POINTER 
DEC R3 
BNE 2$ 
RESREG ;RESTORE RO - RS 
RTS PC 
sEMPTY THE QUEUE SPECIFIED BY R1 
7 CALL 
3 DRVNUM,R1 ;DRIVE NUMBER TO R1 
: JSR PC, EMPTYQ 
043454 EMPTYQ: CLAS ‘alee ;CLEAR NUMBER OF ITEMS IN QUEUE 
043464 043504 MOV QINPT(R1) ,QOUTPT(R1) 7SET OUTPUT QUEUE POINTER=INPUT POINTER 


SEQ 0174 


a 
2 


AAA BREE RRR GE 


WWWWWNWWWWWWG 


DAMAAAA AI 
AUSWN—ODOONAUEWR = 


8 


83 


BREN EERE LS La Sa Sat a4 


SEESSRERSES 


N28 
RRR 
aR 
aad and ond 
Mus 
soo 


®) 
Ww 


94 
96 


Cd 
ee 
a kk km gd se ak a a od a ed I 
WANNA 
wi 


WG 
© 
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044040 
044042 


044066 


— 


044160 
044166 
044176 


006201 
000207 


122761 
001421 

105261 
006301 

010271 
062761 
026161 
001003 
016161 
006201 
005720 
000200 
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000010 
043454 
043464 
000002 
043464 
043524 


043454 


043504 


043454 
043504 
043504 
000002 
043504 
043524 
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043454 


043464 
043526 


043464 


043504 
043526 


043504 


ASR 
RTS 


R1 
PC 


ROUTINE TO PUT A REQUEST IN QUEUE 


' CALL 


e 
° 

. 
. 
. 
° 


DRVQUE : 


1$: 
2$: 


spre ho” R1 


#10,QCNT(R1) 


QCNT(R1) 
R1 


R2,@QINPT(R1) 
#2,QINPT(R1) 
QINPT(R1), ,QSTOP(R1) 


:BR IF 
QSTART(R1) ,QINPT(R1) 


R 
(RO) + 
RO 


DRIVE NUMBER 

ADDRESS OF PARAMETER BLOCK 

:GO PUT REQUEST IN rare 

RETURN HERE IF QUEUE IS 

RETURN HERE IF REQUEST 1S IN QUEUE 


1S QUEUE F 
:BR IF VES-TAKE RETURN1 
: INCREMENT QUEUE COUNT 


:PUT THIS REQUEST IN QUEUE 

UPDATE THE QUEUE POINTER 

TIME TO RESET THE POINTER 
2 YES--RESET POINTER 


: TAKE RETURN 2 
RETURN TO USER 


ROUTINE TO GET THE *DPB’* ADDRESS OF NEXT REQUEST IN QUEUE 


CALL 


GETREQ: 


1$: 


2$: 


#DRVNUM ,R1 
PC,GETREQ 


R2 
QCNT(R1) 
2s 


R1 
—,* ),R2 


PC 


;DRIVE NUMBER TO R1 

G0 GET THE REQUEST 

;R2=" DPB'' ADDRESS OF THE REQUEST 
;R2=0 IF NO REQUEST IN QUEUE 


ase THERE ANY REQUEST IN QUEUE? 


:PICKUP *DPB’' POINTER FOR THIS DRIVE 
RETURN TO USER 


ROUTINE TO ‘POP'’ THE REQUEST FROM QUEUE 


"CALL 


POPQUE : 


1$: 


MOV 
JSR 
RETURN 


DECB 
A 


#DRVNUM ,R1 


PC ,POPQUE 


QCNT(R1) 
R1 


pov api hd oR2 
@QOUTPT(R1) 

#2,QOUTPT(R1) —;UPDA 
QOUTPT(R1) ,QSTOP(R1) 


1$ ;NO--BR 
QSTART (R1) ,QOUTPT (R1) 


DRIVE NUMBER TO R1 
:CALL_TO REMOVE REQUEST 
zR2=ADDRESS OF DPB REMOVED 


:DECREMENT QUEUE COUNT 
:GET THE 'DPB’* POINTER 
REMOVE DPB ADDRESS Ae THE QUEUE 
TE THE QUEUE POINTER 
th TO RESET THE POINTER? 


x 
7 YES--RESET THE PCINTER 


SEQ 0175 


0 RMOS/3/2 PERF EXCR 


RMUA 
7RM DRIVER INITIALIZATION CODE 


398 044206 000207 
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RTS PC 


RETURN TO USER 


-SBTTL DATA, CONTROL, & STATUS BLOCKS 
BLOCK LOCATION EQUATE STATEMENTS 


:FMT,HCI,ECI OR OFFSET CODE 
ODE 


ZOPERATION C 

SPORT SELECT & BITS A16, 

WORD COUNT (2°S COMP) 

;BUFFER ADDR OR REGISTER gy Bo septa 


SECTOR ADDRESS OR 1ST REG A 
: TRACK ADDRESS OF LAST REG ADDR 


[CYLINDER ADDR 
REGISTER STORAGE (IF ERROR) 
STATUS WORD (SET BY DRIVER) 


:DRIVE"S HISTORY AND CURRENT INDICATOR STORAGE EQUATES 


WORD COUNT (NOT 2°S COMP) 
SECTOR SIZE FOR CURRENT OPERATION 


PRESENT COMMAND SELECTION CODE 

WRITE DATA PACK INDICATOR 

;PREVIOUS COMMAND SELECTION CODE 

eeruica CODE 

oeuatie wot - TRACK, SECTOR, CYLINDER 
[OPERATION COUN 
SEEK COUNT 

: TOTAL BITS XFERED COUNT (R & W) 
;TOTAL BITS READ COUNT 


TOTAL ERRORS (ALL _TYPES) COUNT 
; RROR COUNT 


:*SKI* OR ‘OCYL" ERROR COUNT 
;PROG DETECTED MISPOSITIONING ERROR S COUNT 
;PASS COUNTER 


OPERATION QUEUE ‘FAIRNESS* COUNT 


EQUATES TO THE NEXT OPERATION PARAMETERS 
NEXT OPERATION CODE 


SFMT = 1 
SCOMND = SFMT+1 
SPSEL = SFMT+2 
$WR = SFMT+3 
$BUF = SFMT+5 
$SEC = SFMT+7 
$TRK = $FMT+10 
$CYL = SFMT+11 
SREG = SFMT+13 
$TATUS = SFMT+15 
SWRDL = $FMT+17 
SSSEC = $SWRDL+2 
$CODE = SWRDL +4 
$PACK = S$WRDL+6 
S$PREVO = $SWRDL +7 
S$PATTC = $SWRDL+10 
SPREVA = $WRDL +12 
SOPERC = $WRDL+16 
$POSIT = S$WRDL +22 
STRANS = SWRDL +26 
EAD = SWRDL +32 
$TOTAL = $SWRDL +36 
$SOFT = SWRDL +40 
$HARD = $WRDL +42 
$SKI = SWRDL +44 
S$MIS. = SWRDL +46 
$PASSC = SWRDL +50 
$FAIR = SWRDL +52 
; INDEX 
S$NCODE = SWRDL +54 
SNPATC = SNCODE +1 
$NSEC = SNCODE+2 
TRK = SNCODE +3 
$NCYL = SNCODE +4 
SNWRDL = SNCODE +6 
SNEXT = SNCODE +10 
; INDEX 
MAXCYL = SNCODE+12 
MINCYL = MAXCYL+2 
TRK = MAXCYL +4 
MINTRK ,= MAXCYL +6 
MAXSEC = MAXCYL +10 
MINSEC = MAXCYL+12 


NEXT PATTERN 
NEXT S SECTOR 


TRACK 
SNEXT CYLINDER 
NEXT BUFFER S 


SIZE 
;PARAMETER SELECTION INDICATOR 
EQUATES FOR MAXIMUM/MINIMUM ADDRESSES n 


MAXIMUM CYLINDER ADDRESS 
MINIMUM CYLINDER ADDRESS 
IMUM TRACK ADDRESS 
“MINIMUM TRACK ADDRESS 
MAXIMUM SECTOR ADDRESS 


;MINIMUM SECTOR ADDRESS 


SEQ 0176 


1% 
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ais CONTROL, & STATUS BLOCKS 


| 1671 000122 SFIRST = MAXCYL +14 :FIRST OPERATION INDICATOR 
| 1473 ;BAD SECTOR/TRACK ADDRESS STORAGE AREA INDEX EQUATE 
1475 000124 SBDSEC = MAXCYL +16 ;BAD SECTOR STORAGE TABLE PLUS TERMINATOR 
py A ;DRIVE ID AREA INDEX EQUATE 
1479 002106 SDRVID = SBDSEC+<126. #8. >+2 :DRIVE ID 
1681 | ;RH/RM REGISTER EQUATES 
| 1483 002116 $RMCS1 = $DRVID+10 :RM REGISTER STORAGE 
1484 002120 $RMWC = $RMCS1+2 
1485 002122 $RMBA = $RMCS1+4 
1486 002124 SRMDA = SRMCS14+6 
1487 002126 SRMCS2 = $RMCS1+10 
1488 002130 SRMDS = $RMCS1+12 
1489 002132 $RMER1 = SRMCS14+14 
1490 002134 $RMAS = $RMCS14+16 
1491 002136 $RMLA = $RMCS1+20 
1492 002140 $SRMDB = $RMC51422 
1493 002142 SRMMR1 = $RMCS1+24 
1494 002144 SRMDT = $RMCS1+26 
1495 002146 SRMSN = $RMCS1+30 
1496 002150 $RMOF = $RMCS1+32 
1497 002152 SRMDC = SRMCS1+34 
1498 002154 $RMHR == $RMCS1+36 
1499 002156 SRMMR2 = $RMCS1+40 
1500 002160 SRMER2 = $RMCS14+42 
1501 002162 $RMEC1 = $RMCS14+44 
1302 002164 SRMEC2 = $RMCS1+46 
1511 :BLOCK FOR DRIVE 0 
044210 000 000 DRIVEO: -BYTE 0. 0 :DRIVE NUMBER 0 
044224 046326 “WORD .+$RMCS1-$REG 
-BLKB  $RMEC2-$REG 
;BLOCK FOR DRIVE 1 
046376 001 000 DRIVE1: -BYTE ! 0 :DRIVE NUMBER 1 
046412 050514 “WORD .+$RMCS1-$REG 
-BLKB $RMEC2-$REG 
sBLOCK FOR DRIVE 2 
050564 002 000 DRIVE2: a ¢-0 DRIVE NUMBER 2 
050600 052702 “WORD .+$RMCS1-$REG 
“BLKB  $RMEC2-$REG 
;BLOCK FOR DRIVE 3 
052752 003 000 DRIVE3: .BYTE 3,0 ZDRIVE NUMBER 3 


052766 055070 


-BLKW 5 
-WORD ,+$RMCS1-$REG 
-BLKB $RMEC2-$REG 


SEQ 0177 


CZRMUAQ RMOS/3/2 PERF EXER 
DATA, CONTROL, & STATUS BLOCKS 


055140 004 000 
055154 057256 


057326 005 000 
057342 061444 


061514 006 000 
061530 063632 


063702 007 000 


063716 066020 
1512 
1513 
1514 
1515 066070 000 
1516 066071 000 
1517 066072 000 
1518 066073 
1519 066074 177776 
1520 066076 076746 
1521 066100 
1522 066101 000 
1523 066102 000000 


526 
1aS0 066110 
1528 
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;BLOCK FOR DRIVE 4 


DRIVE4: .BYTE 
BLK 


W 
- WORD 


DRIVES: .BYT 


“WORD 


4,0 
5 


. *$RMCS1-$REG 
-BLKB  $RMEC2-$REG 


;BLOCK FOR re 5 


5.0 
5 


. +$RMCS1-$REG 
-BLKB $RMEC2-SREG 


;BLOCK FOR DRIVE 6 


DRIVE6: .BYTE 
-BLKW 


- WORD 


6.0 
5 


. *$RMCS1-$REG 
-BLKB $RMEC2-$REG 


BLOCK FOR DRIVE 7 


DRIVE7: .BYTE 
-BLKW 
WORD 


GENERAL PURPOSE PARAMETER BLOCK 


GENDPB: .BYTE 
-BYTE 


GENREG: .BLKW 


e 


5 
. . *$RMCS1-S$REG 
-BLKB $RMEC2-$REG 


CRoooee {'oooo 
2 
a 


mM 
* 


;DRIVE NUMBER 4 


DRIVE NUMBER 5 


DRIVE NUMBER 6 


;DRIVE NUMBER 7 


:DRIVER PARAMETER BLOCK, DRIVE # 
OFFSET VALUE OR FMT16, HCI OR ECI 
OMMAND COD 


3¢ E 
=PSEL, A16 AND A17 
;WORD COUNT (NEG) 


[CYLINDER ADDRESS 
ADDRESS TO SAVE ALL RH/RM REG'S 
: STATUS WORD 


REGISTER STORAGE 


SEQ 0178 


Ws i Dig OT ee LS 
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| } .SBTTL ERROR MESSAGES 
| 3 066160 122 110 061 EM: — .ASCIZ @RH11/RH70 INTERRUPT OCCURRED (RMAS = ODA 
| 4 066230 135 116 105 EM2:  :ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 
5 066266 115 101 123 EM3:  :ASCIZ /MASSBUS PARITY ERROR (MCPE=1)/ 
6 066324 115 101 123 EMG:  :ASCIZ2 /MASSBUS PARITY ERROR, (PAR=1)/ 
7 066361 101 104 104 EMS: ASCIZ ZADDRESS PLUG CHANGE BIT SET/ 
B 066415 122 110 061 EM6:  :ASCIZ @RH11/RH70 DIDN'T RESPOND TO ADDRESSINGA 
9 066464 135 116 103 EM10: %ASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR/ 
10 066527 «4106 101 124 EM11: :ASCIZ2 /FATAL MASSBUS PARITY ERR 
11 066562 120 105 153 EMI2: “ASCIZ /PERSISTENT DEVICE UNSAF EO 
12 066613 117 120 105 EM13: :ASCIZ /OPERATION NOT COMPLETED WITHIN TIME LIMIT/ 
13 066665 104 132 111 E—M14:  :ASCIZ /DRIVE WENT OFFLINE/ 
14 066710 116 117 0460 EM15: “ASCIZ /NO RESPONSE TO PORT REQUEST/ 
15 066744 110 105 101 EM20: ASCIZ /HEADER CRC ERROR/ 
16 066765 104 101 124 EM21:  “ASCIZ /DATA CHECK ('DCK') ERROR/ | 
17 067016 127 122 111 EM22: <ASCIZ © /WRITE CHECK ERROR ~ DATA CHECK (*DCK') SET/ 
18 067071 127 139 111 EM23:  [ASCIZ /WRITE CHECK ERROR = DATA CHECK ("DCK") NOT SET/ 
19 067150 119 105 101 EM24:  [ASCIZ /HEADER READ ERROR - "FMT' BIT DROPPED/ 
20 067216 110 105 101 EM25:  ASCIZ /HEADER READ ERROR - HEADEP COMPARE ("HCE") ERROR/ 
51 067277 106 117 122 EM26: TASCIZ FORMAT ERROR ("FER')/ 
22 067326 110 105 101 EM27:  ASCIZ /HEADER COMPARE ("HCE") ERROR/ 
33 067361 115 11 123 EM30: <ASCIZ /MISCELLANEOUS DRIVE ERROR/ 
34 067413 117-120 105 M31:  CASCIZ /OPERATION INCOMPLETE (‘OPI') ERROR/ 
25 067456 104 132 111 EM32: %ASCIZ /DRIVE TIMING ('DTE') ERROR/ 
067811 120 101 122 EM33: :ASCIZ /PARITY ("PAR") ERROR AF TER OPERATION STARTED/ 
57 067566 127: 122 111 EM34: © TASCIZ /WRITE CLOCK FAILURE ("WCF ') ERROR/ 
58 067630 171 116 126 EM35:  :ASCIZ /INVALID ADDRESS ('IAE') ERROR/ 
067666 127 122 111 EM36:  TASCIZ /wRITE LOCK (*WLE*) ERROR/ 
30 067717 «104 101 124 EM37: ‘%ASCIZ /DATA CHECK ("DCK*) SET DURING WRITE CHECK COMMAND/ 
31 070001 122 110 061 EM40:  “ASCIZ @RH11/RH70 OR UNIBUS TRANSFER ERROR@ 
070044 102 125 123 EM41: “ASCIZ /BUS ADDRESS OR WORD COUNT INCORRECT/ 
33 070110 104 101 124 EM42:  “ASCIZ /DATA COMPARE ERRORS ~ NO OTHER ERROR(S) DETECTED/ 
070171 103 101 116 EM43: :ASCIZ /CAN'T MATCH DATA READ WITH A PATTERN/ 
35 070236 105 122 122 EM44: ‘[ASCIZ @ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH11/RH70a 
% 070327 ~—s«-:105 103 103 EM45:  ‘ASCIZ /ECC LOGIC FAILURE - POSITION REGISTER VALUE NOT VALID/ 
37 070415 102 125 123 EM46: | ASCIZ /BUS ADDRESS AND WORD COUNT NOT CONSISTENT/ 
38 070467 s«<128 105 105 EMSO: %ASCIZ /SEEK INCOMPLETE ('SKI') ERROR/ 
39 070525 130 122 117 EM51: “ASCIZ /PROGRAM DETECTED POSITIONING ERROR/ 
104 122 111 EM60:  “ASCIZ /DRIVE UNSAFE ERROR/ 


40 070570 
41 


OER MUI SHES EN ERATION a EOE: 
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ERROR MESSAGE SEQ 0180 
1 070613 122 115 101 DH1: »ASCIZ = /RMAS/ 
2 070620 104 122 111. ~DHe: -ASCIZ /DRIVE RMDS RMER1 RMER2 RMMR2 = RMAS/ 
3 070674 104 122 111 DHS: -ASCIZ /DRIVE REG ADR DATA/ 
070722 104 122 111. ~DH4: -ASCIZ /DRIVE REG ADR GOOD BAD/ 
5 070761 044 122 115 DH6: -ASCIZ /$RMADR/ 
6 070770 104 122 126 DH14 -ASCII /DRV RMCS1 RMCS2 —RMDS RMER1T = / 
071034 122 115 115 eASCIZ /RMMR2 RMER2 RMEC1 RMEC2/<CR><LF> 
8 071073 122 115 127 DH15 eASCII = /RMWC RMBA RMDA RMAS RMLA / 
9 071143 122 115 104 -ASCIZ /RMDB RMMR1 = =RMDT/<CR><LF> 
1? 071172 122 115 123 DH16 -ASCIZ /RMSN RMOF RMDC RMHR STATUS/<CR><LF > 
12 - EVEN 
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ERROR MESSAGES SEQ 0181 


1 071244 001344 000000 DT1: WORD 


. ATTN,O 
2 071250 001220 035614 035616 DT2: -WORD DRIVE, RMERRS, ge RMERRS +4 ,RMERRS+6,ATTN,O 
3 071266 001220 042746 042750 DT3: «WORD DRIVE,RD.ADR,RD.WR 

043164 : «WORD DRIVE, vt AD,WRT.WDRD.WRD,0 


000000 : 
6 071314 002116 002126 002130 DT14:  .WORD SAMCSt »SRMCS2,$RMDS, $RMER1, SRMMR2 , $RMER2, ya LF tte 0 


7 071336 002120 002122 002124 DT15:  .WORD $RMWC,$RMBA,$RMDA,$RMAS, SRMLA, $RMDB, SRMMR 
Aechtees 002146 002150 002152 DT16: .WORD $RMSN,$RMOF ,SRMDC,$RMHR,$TATUS,0 
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ERROR MESSA 
1071374 = 1202s 122,—Ss«105-—s LIN2C 
2071415 040 040 120 LINeP 
3.071441 052 040 105 LIN2S 
4071475 105 122 #122 LI 
5071510 040 124 000 T: 
6071513 120 122 105 LINN3 
7071534 040 128 000 S: 
8071537 040 040 040 LINP3: 
9071560 123 124 101 LINS3: 

10071575 = =60460-=S(040-=Ss«105—s LINENS: 
11071612 = 060 = 040-107 LINAS: 
12071632 «©0460 «= 040) Ss«124.—«LINT3: 
13071643 0460 122 115 LINCAS: 
14071654 122 175 = 104“ LINDAS: 
15 071664 122 115 102 LINB3: 
16 0716746 040 040 122 LINW3: 
1707170 = 123. s«124.=SSs« 1001's LINST3: 
18 071723 = 123s 124~=Ss«'101—sLINSS3: 
19071740 102 125 106 LINMG: 
200.1757 040 «= 040-Ss«123”—«CLINSG: 
21 071771 0 040 101 LINX4: 
22 072024 107 117. 117 LINDS: 
23 072041 04 040° 102 LINBS: 
24 072057 04 040 127 LINPS: 
25072075 =6110 +«=9105.~—S«101—«sLINSS: 
26 072131 122 115 105 LINEPS: 
27 072142 «(G 122. 115 LINEOS: 
28 072154 123 105 103 LINB6: 
29 072207 «396 «128——i«‘z105-—'i<‘<ié«i3~SsCLINCS: 
30 072236 103 117 122 LING6: 
31 072254 0460 122 105 LINR6: 
32 072265 125 116 103 LINUO6: 
33072312 ©6040 S040 Ss«124—«CLINZM: 
34 072340 117 122 104 LINZO: 
35 072350 040 124 117 LINZP: 
36 072370 4896 040-2 s«d124.~=Ss«d1:17_: LINTSS: 
37 072412 040 040 105 LINZT: 
38 072626 040 040 127 LINZX: 
39 072440 040 040 127 LINZR: 
400724655 105 122 122 LIN8M: 
41 072500 104 101 124 LINSB: 
_ 42072527 040 040 040 LINSH: 
43072555 114 +117 ~~ 103 
44 072605 114 117 103 LINQI: 
45 0/262 124 117 124 LINGE: 
46 072655 124 110 105 LIN9G: 
47 0727 105 122 122 LINIOA 
48 072740 040 111 116 LIN1OB: 
49 073001 105 = 122,—Ss« 122s LIN10C: 
50 073044 105 103 103 
51 073106 105 103 103 LINIOHM: 
52 073136 ~=—S- 101 104 104 
53073173 = 108. S117, «116s LINTIH: 
54 073247 ~=—«:101 104 104 
55 0732 040 BLNKS4 
56 073267 = 040 BLNKS3: 
57 073270 040 BLNKS2: - 





/PRESENT ORDER = / 

/ PREVIOUS ORDER = / 

@* ERROR AT BAD TRACK/SECTOR@ 
‘. AT C/ 


/PRESENT ADDR 
/ S/ 


C/ 
C/ 


v 
P*] 
m 
< 
> 
i=] 
=J 
z 
" 


/ 

/ ACTUAL CYL = / 
TRK = 

/ RMDC 

/ 

/ 


“il 
ws 


/ 


~ 
= 
3 
4 
7] 
' Bz ~™s 


~ 

> 

ta ] 

4 

G 

P 

a 
~ 

S 

7 

x 

nn 

» 

) 

TT 

~ 


OR 


/ SIZE = 


/ WORD PO 
/HEADER FROM ERROR SECTOR = / 
/RMEC1 = / 


/ RMEC2 = / 

/SECTOR IS ECC CORRECTABLE / 
/SECTOR READ CORRECTLY / 
/CORRECTED ON / 

/ RETRIES/ 
/UNCORRECTABLE AFTER / 
leeteas poe ERR = 


/ORDERS : 
/ TOTAL SEEKS = / 
/ TOTAL SKI ERR = 
/ ERRORS:/ 


/ 


/ 


READ: / 
/ERROR DURING RETRY/ 
/DATA COMPARISON ERRORS/ 
/ GOOD 


BAD/<CR><LF> 
/LOC DATA DATA/<CR><!_F> 
/LOC pale cxamek > 


ORS = / 
/THE DATA COMPARED OK/<CR><LF> 
/ERROR BURST BEGINS AT WORD / 
/_IN DATA FIELD OF ERROR SECTOR/<CR><LF> 
ZERROR WAS NOT IN THE DATA READ - /<CR><LF> 
ECC CORRECTION CAN'T BE PERFORMED/ 
7ECC CORRECTION RESULTS/<CR><LF > 
/ADDR BAD CORRECTED /<CR><LF> 
/CONTENTS OF ERROR SECTOR (REPORTED ABOVE) /<CR><LF> 
oa DATA/<CR><LF > 


// 
// 


SEQ 0182 
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58 073271 040 
44 073273 122 


000 
105 
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BLNKS1: 
124 LINXS: 


-ASCIZ 


-ASCIZ 






4 / 
/RETRIEVED BY A RDHD COMMAND/ 


SEQ 0183 


_ 


C 15 
CZRMUAQ RMOS/3/2 PERF EXER MACRO VO3.01 11=APR=80 14:52:06 PAGE 15 
TELETYPE MESSAGES 


4 -SBTTL TELETYPE MESSAGES 
3 073327 077 000 QUES: .ASCIZ /?/ 
4 073331 104 122 111. UNTMSG: .ASCIZ /DRIVE/ 
5 073337 040 117 106 UNTOFF: .ASCIZ / OFFLINE/ 
6 073350 040 117 116 UNTON: .ASCIZ / INE/ 
7 073360 040 116 117 UNTNOT: .ASCIZ / NOT BEING TESTED/ 
8 073402 040 101 114 UNTASN: .ASCIZ / ALREADY BEING TESTED/ 
9 073430 040 116 117 TRM: .ASCIZ @ NOT M05/ 
10 073451 040 116 117 NOTPRS: .ASCIZ / NOT PRESENT/ 
11 073466 040 116 117 NOTAVL: .ASCIZ / NOT AVAILABLE/ 
12 073505 040 125 116 NOTSAF: .ASCIZ E/ 
13 073515 040 111 123 LODEV: .ASCIZ / IS LOAD DEVICE/ 
14 073535 200 125 116 SYSTAT: .ASCIZ <CRLF>/UNIT STATUS:/ 
15 073553 122 115 060 $RMO2: .ASCIZ /RMO2/ 
16 0735 122 115 060 $RMO3: .ASCIZ /RMO3/ 
17 073565 122 115 060 $RMOS: .ASCIZ /RMOS/ 
18 073572 200 012 O52 REPHD: .ASCIZ <CRLF><LF>/* * * * * PERFORMANCE REPORT * * * * « / 
19 073644 104 122 111 STATHD: .ASCII /DRIVE PERFORMANCE SUMMARY/<CRLF> 
20 073676 104 122 126 -ASCII /DRV PASS ORDERS SEEKS  WRDS XFER WRDS READ / 
21 073756 123 117 106 eASCIZ /SOFT HARD SKI MISP OTHER/<CRLF> 
22 074011 007 077 106 DROPNG: .ASCIZ <O7>/?FATAL OR EXCESSIVE ERRORS/ 
23 074045 200 105 116 ENDPAS: .ASCIZ <CRLF>/END OF PASS #/ 
074064 040 117 116 MSGON: .ASCIZ / ON / 
25 074071 200 105 116 ENDTST: .ASCIZ <CRLF>/END OF TEST / 
26 074107 106 117 122 MSGF eASCIZ /FOR / 
27 074114 200 104 122 DEASSG: .ASCIZ <CRLF>/DRIVE NEASSIGNED/ 
8 0741 200 052 O52 DRNUM: .ASCIZ <CRLF>/seeeeeeene DRIVE #/ 
29 0741 040 123 124 ASGND: .ASCIZ / STARTED/ 
30 074173 007 077 NEDCLK: .ASCIZ <CRLF><07>/? 'L* OR 'P* CLOCK REQUIRED ON SYSTEM/<CRLF> 
31 074244 116 000 N: eASCIZ = /N/ 
32 074246 131 000 Y eASCIZ = /Y/ 
33 074250 056 000 PERIOD: .ASCIZ /./ 
074252 040 077 103 WRO: .ASCIZ / ?CAN'T WRITE WITH SWOO SET/<CRLF> 
35 074307 040 077 111 INVLD: .ASCIZ / 2INVALID COMMAND/<CRLF> 
074332 200 105 116 ENTCOM: .ASCIZ <CRLF>/ENTER COMMAND: / 
37 074353 200 105 116 ENTDRV: .ASCIZ <CRLF>/ENTER DRIVE I.D.: / 
074377 200 105 116 ENTLMT: .ASCIZ <CRLF>/ENTER ADDRESS LIMITS:/<CRLF> 
39 074427 200 105 116 ENTADR: .ASCIZ <CRLF>@ENTER BAD SPOT ADDRESSES: @<CRLF> 
0 074 072 000 ON: .ASCIZ /:/ 
41 074466 290 104 101 DATEIS: .ASCIZ <CRLF>/DATE: / 
42 074476 290 117 120 IS:  .ASCIZ <CRLF>/OPERATOR I.D.: / 
43 074517 200 012 104 HEDLIN: .ASCIZ <CRLF><LF>/DRV DRV I.D./<CRLF> 
44 074540 116 117 116 E: .ASCIZ /NONE/<CRLF> 
45 074546 040 077 111 BADENT: .ASCIZ / ?INVALID ENTRY/<CRLF> 
46 074567 007 123 131 SY: .ASCIZ <07>/SYSTEM BUSY.../<CRLF> 
47 074610 200 120 122 INTDON: .ASCII <CRLF>/PROGRAM INITIALIZATION COMPLETE/<CRLF> 
48 074651 124 131 120 eASCIZ /TYPE A ‘CONTROL C* TO ENTER COMMANDS/ 
49 074716 200 106 101 MERR1: .ASCIZ <CRLF>/FAILED TO RETRIEVE BAD SPOT FILE(DEC144) ON / 
50 074774 200 111 116 MERR2: .ASCIZ <CRLF>/INVALID FILE(DEC144) STRUCTURE ON / 
51 075040 040 077 102 MSFULL: .ASCIZ / ?BAD SPOT TABLE IS FULL/<CRLF> 
52 075072 103 131 114 MSGCYL: .ASCIZ /CYLNDR/ 
53 075101 124 122 101 MSGTRK: .ASCIZ /TRACK / 
38 075110 123 105 103 MSGSEC: .ASCIZ /SECTOR/ 


57 





SEQ 0184 
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SEQ 0185 


44 ;PARAMETER TABLE FOR ADDRESS LIMITS 
54 075500 075310 001465 044320 TABLEO: .WORD PARS » 821. .MINCYL +DRIVEO 


1 :PARAMETER ENTRY TABLE 
3 075120 075250 020000 001 PARLST: .WORD PAR1,8192.,MAXDL 
4 075126 075260 177777 00147c “WORD PAR2.=1, INTRVL 
5 075 075430 177777 001464 “WORD PAR19,=-1,PASCNT 
6 075142 075270 001514 “WORD PAR3,15..PATTEN 
7 075150 075370 1 001502 “WORD PAR11,1.WCSEL 
8 075156 075400 000007 001504 “WORD PAR14.7.RATIO 
9 075164 075420 000001 001512 “WORD PAR16.1.ENDET 
10 075172 360 000001 001500 “WORD PAR10.1.FORMAT 
11 § ~ WORD PAR15,1,AUTOCK 
12 075200 075440 000001 001510 “WORD PAR20.1_NOTPRT 
13 075206 075450 000001 001516 ~WORD PAR21,1,HEADER ;RANDOM ADDRESS FLAG 
1% 075214 000000 “WORD 0 STABLE TERMINATOR 
16 075216 040 057 040 SLASH: .ASCIZ a/a@ 
17 075222 200 103 110 ASKPAR: .ASCIZ <CRLF>/CHANGE PARAMETERS ? / 
18 075250 123 111 132 PARI: .ASCIZ /SIZE / 
19 075260 115 111 116 PAR2: <ASCIZ /MINUTE / 
20 075270 120 101 124 PAR3: <[ASCIZ /PATTERN/ 
21 075300 115 101 130 PAR4: <ASCIZ /MAXCYL / 
22 075310 115 111 116 PARS:  [ASCIZ /MINCYL / 
23 0753 115 101 130 PAR6:  -ASCIZ /MAXTRK / 
24 075330 115 111 116 PAR?: <ASCIZ /MINTRK / 
07534 115 101 130 PAR8: <ASCIZ /MAXSEC / 
26 075350 115 111 116 PARS: “ASCIZ /MINSEC / 
075 106 117 122 PAR10 eASCIZ /FORMAT / 
28 075370 122 101 116 PAR11: -ASCIZ /RANDOM / 
0754 122 101 124 PAR14: <ASCIZ /RATIO / 
30 075410 103 110 105 PARIS: <ASCIZ /CHECK / 
31 075420 105 116 104 PAR16: <ASCIZ /ENDING / 
075430 120 101 123. PARI9: <[ASCIZ /PASSES / 
33 075440 115 105 123 PAR2O: [ASCIZ /MESSAGE/ 
34 075450 110 105 101 PAR21: <ASCIZ /HEADER / 
36 -EVEN 
38 ;PARAMETER TABLE POINTERS FOR ADDRESS LIMITS 
39 075460 075500 TABLE: .WORD  TABLEO ;PARAMETER TABLE FOR DRIVE 0 
42 075462 075546 ~WORD TABLE1 ;PARAMETER TABLE FOR DRIVE 1 
075464 075614 “WORD TABLE2 [PARAMETER TABLE FOR DRIVE 2 
075466 66 “WORD TABLES [PARAMETER TABLE FOR DRIVE 3 
075470 075730 WORD TABLES ;PARAMETER TABLE FOR DRIVE 4 
075472 075776 “WORD TABLES [PARAMETER TABLE FOR DRIVE 5 
075474 076044 “WORD  TABLE6 [PARAMETER TABLE FOR DRIVE 6 
: 075476 076112 “WORD TABLE7 [PARAMETER TABLE FOR DRIVE 7 
5506 075300 001465 044316 WORD PAR4.821..MAXCYL+DRIVEO 
075514 075330 000000 044324 WORD PAR7.0.MINTRK+DRIVEO 


000000 
75530 075350 000037 


0 044330 odl. EO 
075536 075340 000037 044326 WORD PAR8,31.,MAXSEC+DRIVEO 
0 ; TERMINA 


075544 000000 - WORD 
075546 075310 001465 046506 TABLE1: .WORD PARS,821.,MINCYL+DRIVE1 


TOR 





Fare RMO5/3/2 PERF EXER 


TELETYPE MESSAGES 
075554 


604 
075612 


075614 
Becks 


076110 
076112 


076156 





001465 
000000 
000000 
000037 
000037 


001465 
001465 
000000 


. 000000 
000037 
0 000037 


001465 
001465 
000000 
000000 
000037 
000037 
001465 
001465 
000000 
000000 
000037 
000037 
001465 
001465 
000000 
000000 
000037 
000037 
001465 
001465 
000000 
000000 
000037 
000037 
001465 
001465 
000000 
000000 
000037 
000037 
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053064 
053072 
053070 


055250 


055256 


057436 


TABLE2: 


TABLES: . 


TABLES: 


TABLES: 


TABLE6: 


TABLE7: 


PAR4 821. ,MAXCYL+DRIVE1 
PAR7. 0. MINTRK+DRIVE1 
PAR6,0,MAXTRK+DRIVE1 

PAR9, 31. ,MINSEC+DRIVE1 
PAR8. Si; panses conte} 

0 ; TERMINATOR 


PARS 821. ,MINCYL*DRIVE2 
PAR4 821. .MAXCYL+DRIVE2 
PAR7. 0. MINTRK+*DRIVE2 
PARG.0 MAXTRK+DRIVE2 

ARD. 31. ,MINSEC+DRIVE2 
PARE. 31. -MAXSEC+DRIVE2 
0 : TERMINATOR 


PARS 821. ,MINCYL+DRIVE3 
PAR4.821. .MAXCYL+DRIVE3 
PAR’, 0. MINTRK+DRIVE3 
0; MAXTRK+DRIVE3 
PAKS. 31. MINSEC+DRIVE3 
PAR8, 31. .MAXSEC+DRIVE3 
0 : TERMINATOR 


PARS ,821. .MINCYL+DRIVE4 
PAR4 ,821. ,MAXCYL+DRIVE4 
PAR7,0,MINTRK+DRIVE4 


PAR8,31.,MAXSEC+DRIVE4 
0 ; TERMINATOR 


OAR? «B61 ~ -MINCYL®DRIVES 


PAR8, 31. .MAXSEC+DRIVE5 
0 ; TERMINATOR 


PARS, 821. .MINCYL +DRIVEG 
PARG. MAXCYL+DRIVE6 
PAR, 0, MINTRK+DRIVE6 
6.0,MAXTRK+DRIVE6 
PARKS. 31. MINSEC+DRIVE6 
PARB, 31. -MAXSEC+DRIVE6 
0 ; TERMI 


NATOR 
PARS oe) > -RINCVL OORT VE? 
PAR4, MAXCYL+DRIVE7 


PAR7.0,MINTRK*DRIVE7 


SEQ 0186 
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TELETYPE MESSAGE 


076302 
82 076320 
84 
85 





605 


Mnronrononononononrory 
oO Ww Ww 
WG 
N 


I IO 


076302 
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000004 


3; CALL: 
; JSR 
RETURN 


PC,OPRDAT 


;NOTE: THIS ROUTINE IS ENTERED ONLY AT INITIAL START 


OPRDAT: TYPE »ENTDAT : "ENTER DATE’ 
RDLIN ;READ THE ENTRY 
(SP)+,R5 ;PUT a ENTRY ADDRESS INTO R5 
MOVB (R5)+,DATE STORE THE DATE 


MOVB (R5)+,DATE+6 
MOVB 71 apealog 


CLR DATE+8. :SET TERMINAT 
TYPE -ENTID "ENTER OPERATOR I.D.' 
RDLIN READ THE ENTRY 
V (SP)+,R5 ENTRY ADDRESS 
MOVB (R5)+,OPERID STORE THE I.D. 
MOVB (R5)+,OPERID+1 ;STORE THE I.D. 
MOVB (R5)+,OPERID+2 ;STORE THE I.D. 
MOVB (R5)+,OPERID+3 ;STORE THE I.D. 
MOVB (R5)+,OPERID+4 ;STORE THE I.D. 
MOVB (R5)+,OPERID+5 ;STORE THE 1.D. 
CLR OPERID+6 SET TERMINTOR 


RTS PC RETURN 


ENTDAT: .ASCIZ <CRLF>/ENTER DATE: / 
gt 4, eASCIZ /ENTER OPERATOR I.D.: /. 


-SBTTL ROUTINE TO SIZE MEMORY 

53 RAKE REE EEE REE E RE RKR ER EKEEKEREREREER EEE KK 
3 *CALL: 

:* ry i PC ,$SIZE 
< eSLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 
$SIZE: MOV RO, (SP) 32 SAVE RO ON THE pe 

MO 7:SAVE R1 ON THE STA 

::SAVE MEMORY ERROR VECTOR PS & PC 
32 IGNORE PARITY ERRORS WHILE SIZING 
Fiat PRESENT ERROR VECTOR PS & PC 


SAVE THE STACK POINTER 


a#116 
@FERRVEC, ee 
MOV @#ERRVEC+2,-(SP 


MOV SP,R 
33S€T we Ces PS TO THE PRESENT PS 


MOV (SP) +, a#ERRVEC+2 
MOV #2$, aE 


MOV 
1$: TST 


z:PUSH OLD PSW AND PC ON STA 
pi save THE PSW IN QPERRVEC #2 
RRVEC ::SET FOR’ TIMEOUT 
#20000,R1 SiFIRST ADDRESS 
(R1) S:TEST THIS ADDRESS 


SEQ 0187 
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le 
/ROUTINE TO SIZE MEMORY SEQ 0188 
| 076432 005721 TST (R1)+ 3z:STEP TO NEXT ADDRESS 
076434 000775 BR 1$ zz TRY ANOTHER 
076436 162701 000002 2$: SUB #2,R1 : DROP BACK 
076442 010006 MOV RO,SP ;RESTORE THE STAC 
| 076444 012637 000006 MOV (SP) +, Q#ERRVEC+2° = ;RESTORE ERROR VECTOR 
076450 012637 000004 MOV (SP) +, A#ERRVEC 
076454 012637 000116. MOV (SP)+,a#116 7 RESTORE MEMORY ERROR VECTOR 
012637 000114 MOV (SP) +,a4114 
076464 010137 076476 MOV R1,$LSTAD ::LAST ADDRESS 
076470 012601 MOV (SP)+,R1 ZRESTORE R1 
076472 012600 MOV (SP) +,RO ::RESTORE RO 
076474 000207 RTS PC 
ne 076476 000000 $LSTAD: .WORD 0 :zCONTAINS THE LAST ADDRESS 
87 -SBTTL BUSADR = GET BUS ADDRESS AND VECTOR ADDRESS FOR RH/RM 
Ae THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS 
89 SOF THE RH/RM IS SETUP FOR THE PROPER ADDRESS. 
30 JT WILL ALSO READ THE ADDRESS FROM THE TTY IF 
92 NOTE: THIS ROUTINE DESTROYS RO=R4 
93 CALL 
94 ; 
95 : JSR PC ,BUSADR 
«J 3 RETURN 
98 076500 005737 001360 BUSADR: TST CHGADR ; INPUT FROM TTY REQUESTED? 
99 076504 002036 BGE 3$ =NO--BRANCH 
100 076506 005037 001360 CLR CHGADR < VES=~CLEAR THE REQUEST FLAG 
101 076512 104401 001203 TYPE »$CRLF TYPE A CR-LF 
102 076516 012700 001272 1$: MOV ASRMADR RO :FIRST ADDRESS 
103 076522 104401 076620 TYPE _MRMC 7’ RMCS1="' 
104 076526 011046 MOV (RO) ,-(SP) [PRESENT RMCS1 ADDRESS 
105 076530 104402 TYPOC sTYPE IT 
106 076532 104401 073270 TYPE ,BLNKS2 :TYPE 2 BLANKS 
107 076536 104411 RDLIN [GET THE ENTRY 
108 076540 012601 MOV (SP)+,R1 SADDRESS OF ASCII TEXT 
109 076542 004537 076636 JSR R5,CK.NUM ENTER AND STORE THE NEW ADDRESS 
110 076546 000763 BR 1$ TERROR EXIT 
111 076550 012700 001274 2$: MOV ASRMVEC RO :VECTOR ADDRESS 
112 076554 104401 076627 TYPE _MRMV :" RMVEC=' 
113 076560 011046 MOV (RO) ,-(SP) [PRESENT RH/RM VECTOR ADDRESS ON THE STACK 
114 076562 104402 . TYPOC : TYPE IT 
115 076564 104401 073270 TYPE ,BLNKS2 TYPE 2 BLANKS 
116 076570 104411 RDLIN [READ THE ENTRY 
117 076572 012601 MOV (SP)+,R1 zASCII TEXT ADDRESS 
118 076574 004537 076636 JSR RS.CK.NUM TENTER AND STORE NEW ADDRESS 
119 076600 000763 BR 2$ zERROR EXIT 
120 076602 012700 001272 3$: MOV A#SRMADR ,RO [FIRST ADDRESS OF NEW PARAMETERS 
121 076606 012701 035762 MOV ARMADR ,R1 ZFIRST ADDRESS OF WHERE TO PUT THEM 
122 076612 012021 MOV (RO) +, (R1)+ :BUS ADDRESS 
123 076614 012021 MOV (RO) +,(R1)+ VECTOR ADDRESS 
1% 076616 000207 RTS PC 7 RETURN 
126 076620 122 115 103 MRMCS1: .ASCIZ @RMCS1=a 
127 076627 122 115 126 MRMVEC: .ASCIZ @RMVEC=a 
129 .SBTTL CK.NUM = CHECK NUMBER (OCTAL) 





415 
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CK.NUM = CHECK NUMBER (OCTAL) ‘ SEQ 0189 
130 THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
| 13) 3 AN eof FONAS AN OCTAL NUMBER IN R2 
133 : MOV #ADR,R1 ADDRESS OF ASCIZ STRING 
134 ; JSR RS,CK.NUM 3R5 CHANGED 
135 : RET TERROR EXIT 
1% : RET [NORMAL EXIT 
138 076636 010246 CK.NUM: MOV R2,-‘SP) SAVE R2 
139 076640 010346 MOV R3,-(SP) ; SAVE 7 
140 076642 010446 MOV R4,-(SP) :SAVE R 
141 076644 012703 000006 MOV #6 ,R3 ZMAX OCTAL DIGITS IN THE NUMBER 
142 076650 005002 CLR R2 sFINAL OCTAL VALUE 
143 076652 112104 1$: MOVB (R1)+,R4 :GET CURRENT POINTED BYTE 
144 076654 001424 BEQ 3$ “BRANCH, IF TERMINATOR DETECTED 
145 076656 120427 000060 CMPB R4,4'°0 : SMALLER THAN ASCII-O ? 
146 076662 103425 BLO 5$ sYES,ERROR EXIT 
147 07 120427 000067 CMPB R4,4'7 SLARGER THAN ASCII-7 ? 
148 076670 101022 BHI 5$ YES, — EXIT 
149 076672 006302 ASL R2 :SHIFT LEFT 
150 076674 103420 BCS 5$ ; 
151 076676 006302 ASL R2 7 ONE 
152 076700 103416 BCS 5$ 3 
153 076702 006302 ASL R2 sOCTAL DIGIT 
154 076704 103414 BCS 5$ ERROR IF CARRY BIT SET 
155 076706 042704 177770 BIC #177770,R4 CHOP OFF HIGHER BITS 
156 076712 060402 ADD R4,R2 :APPENDING CURRENT DIGIT TO NUMBER 
157 076714 005303 DEC R3 ;DECREMENT BYTE COUNT 
158 076716 001401 ; BEQ 2$ SBRANCH, IF LAST BYTE 
159 076720 000754 BR 1$ * LOOPING BACK 
160 076722 112104 2$: MOVB (R1)+,R4 CHECK TERMINATOR 
161 076724 001004 BNE 5$ ERROR EXIT | 
162 076726 005702 3$: TST R2 FINAL VALUE = 0 { 
163 076730 001401 BEQ 4$ YES, THEN NOT REPLACE we ORIGINAL VALUE | 
164 076732 010210 MOV R2, (RO) TREPLACE THE ORIGINAL VALUE 
165 076734 005725 4$: TST (R5)+ SADJUST FOR NORMAL RET 
166 076736 012604 5$: MOV (SP)+,R4 RESTORE R4 
167 076740 012603 MOV (SP) +,R3 RESTORE R3 
168 076742 012602 MOV (SP)+.R2 sRESTORE R2 
4 076744 000205 RTS R5 3EXI 
ta 076746 CYLNDR: .BLKW 258. ZONE SECTOR WORD CTR MAX SIZE 
173 077752 ENDPGM=. 
174 ‘ 


175 000200 -END 200 | 


cS 


15 


i 
nl 





} 
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SYMBOL TABLE SEQ 0190 
! 
ABASE = 176700 ASGN7 963338 BIT8 = 000400 CR = 000015 DROPNG _ 074011 
ABNRML = 030152 ASKPAR 075222 BIT9 = 001000 CRLF = 000200 DRQ = 004000 
ACDW1 = ASNERR 030026 BLKADR 002106 CYLIMT 001444 DRVACT Banoes 
ACDW2 = ASNLST 001550 BLNKS1 073271 CYLNDR 076746 DRVCLR= 000111 
ACK = 000123 ASNMSG 030952 BLNKS2 073270 DATAPK 026132 D 011322 
ACPUOP= 000000 ASSIGN 025166 BLNKS3 073267 DATAO 002546 DRVINT 036212 
ACTDORV 035700 ASWREG= 000000 BLNKS4 073266 DATA1 002606 DRVPRM 026374 
ACTSTR 035701 ATA___= 100000 BPTVEC= 000014 DATAIO 003246 DRVQUE 044044 
ADDWO = 000000 ATABIT 035750 BUFTBL 0017 DATA11 003306 DRVSTA 035634 
ADDW1 = Sopton ATESTN= Q0000U BUSADR 076500 DATAI2 003346 DRVTYP 035644 
ADDW10= ATiN 001344 BUS 074567 DATA13 34 DRY = 
ADDW11= 000000 ATO = 000001 CFLAG 001362 DATAI14 003446 DSWR = 177570 
ADDW12= 000000 ATi = 000002 CHGADR 001360 DATA1S5 0035 DTE = 
ADDW13= 000000 AT2 = 000004 CHKADR 017656 DATA2 0264 DTEER 012160 
ADDW14= 000000 ATS = 00003 C11 037300 DATAS 002706 DTUW 035746 
ADDW15= 000000 ATS = 000020 C13 037406 DATAS 002746 DT = 000001 
ADDW2 = 000000 ™S = 000040 C14 037506 DATAS 00300 DTO01 = 000002 
ADDW3 = 000000 Ai6 == 000100 C15 64 DATA6 003046 DTO02 = 000004 
ADDW4 = 000000 AT? _— = 000200 C16 040106 DATA7 0031 DTO3 = 000010 
= 000000 AUNIT = C17 040122 DATA8 003146 D = 000020 
ADDW6 = 000000 AUSWR = C17B 040144 DATA9 003206 DTO05 = 000040 
ADDW7 = 000000 AUTOCK 001506 C18 040222 DATE 001322 DT06 = 000100 
ADDW8 = 000000 AVAIL. 001616 CKBUS 013400 DATEIS 66 DTO7 = 000200 
= 000000 AVECT1= 000254 CKCLK. 023326 K = 1000 DTO8 = 0004 
ADEVCT= 000000 AVECT2= CKCLK1 023422 DCKER 010154 DT 071244 
ADEVM = 000000 A = CKCLK2 023470 DCKER1 010274 DT14 071314 
AENV = 000000 A17__= 001000 CKCLK3 023520 DDISP = 177570 DT15 071336 
NVM = 000000 BADENT 074546 CKERR 013306 DEASGN 04 DT16 071360 
AFATAL= 000000 BADSEC 1364 CKFMT 011354 DEASSG 074114 DT2 071250 
= = 10 CKHCE 011550 H 06 DT3 
AMADR2= 000000 BEGCOD 001522 CKSWR = 104407 DH14 070770 DT4 071276 
AMADR3= 000000 BEGPAT 001520 CK.CHR 031314 DH15 071073 DT6 310 
AMADR4= 000000 BEGSIZ 001524 CK.DEC 031266 DH16 071172 DULP 036214 
AMAMS1= 000000 0 = 1 CK.DIG 031366 DH2 DUNIT 001552 
AMAMS2= 000000 BITOO = 000001 CK. 076636 DHS 0 DVA = 
AMAMS3= 000000 BITO1 = 000002 CK.OCT 031240 DH4 070722 DVC = 
= 000000 BITO2 = CLKFLG 1312 70761 ECBADO 001434 
AMSGAD= 000000 BITOS = 000010 CLOCK 024462 DISPLA 001156 ECBAD1 001442 
AMSGLG= 000000 BIT04 = 20 CLR = 000040 DISPLY= 104414 ECBIT 001420 
AMSGTY= 000000 BITOS = CLRDPB 026174 DISPRE 00174 14710 
AMTYP1= 000000 BIT06 = 000100 CLRQUE 043746 LT = 100000 ECCX 01544< 
AMTYP2= 000000 BITO7 = 000200 CMCNT 001412 DONE 007646 ECC 015306 
AMTYP3= 000000 BITO8 = CMCYL 001414 P = 020000 ECC2 015436 
AMTYP4= 000000 BITO9 = 001000 CMDAT 013736 DPINT 035654 001432 
= 001000 BIT] = CMHED 013664 PR = 000400 ECGD1 001440 
APASS = 000000 BIT10 = 002000 CMPAR 013464 DPRQS 035664 ECH = 000100 
APRIOR= 000000 BIT11 = CMPARD 013502 DRIVE = 001220 = 004000 
APTCSU= 000040 BIT12 = 010000 CMPLMT 476 DRIVEO 044210 ECMSKO 001424 
TENV= 000001 BIT13 = 02 CMPRES 020356 DRIVE] 04637 ECMSK1 001426 
APTSIZ= 000200 BIT14 = 040000 CMPRT 014310 DRIVE2 050564 ECSEC 001422 
TSPO= 000100 BIT15 = 100000 CMPRX 014302 DRIVES 052752 001430 
ASGND 074162 BIT2 = 000004 CMSEC 001 DRIVES 055140 ECWRD1 14 
ASGNI 025174 BITS = 000010 CMSTR 013602 DRIVES 057326 EMPTYQ 044024 
ASGN2 0252 BIT4 = 000020 CMSTR2 0137 DRIVE6 061514 EMTVEC= 
ASGNS 025356 BITS = 000040 CMTRK 001417 DRIVE? 063702 M 066160 
ASGN4 025516 BIT6 = 000100 COLON 074464 DRNUM = 074136 EM10 066464 
ASGN6 025520 BIT? = 000200 COMTBL 002126 DROP 030056 EM11 066527 
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SYMBOL SEQ 0191 
EM12 066562 ERRVEC= 000004 INTDON 074610 LINPS 072057 MDPE = 000400 
EM13 066613 FACTOR 016310 INTRVL 001472 LINR 072254 MERR1 074716 
EM14 5 FAIRNS INVLD 074307 LINSS3 071723 MERR2 074774 
EM15 066710 FALPAR 007432 IOTVEC= 000020 LINST3 071706 MINCYL= 000110 
2 FALPR1 007446 = 000100 LINSS 071560 MINSEC= 000120 
066744 FER = 20 ISR 040634 LINS4 071757 MINTRK= 000114 
EM21 FILBUF 01667 IvC = 010000 LINSS 072075 MINUTE 001370 
EM22 067016 FISK 030552 KSR 024624 LINT3) 071632 LTA 035774 \ 
EM23 067071 FMTER 012354 KSR1 024636 072265 
EM24 067150 FMT16 = 010000 040460 LINW3 071674 = 
EM25 067216 001500 LACNT 035712 LINX4 071771 MOL = 010000 
EM26 067277 FOWT1 B = 002000 LINXS 073273 MONTR 005614 
EM27 067324 FOWT2 005720 LBT = 002000 LINIOA 072704 MRMCS1 6620 
EMS 0662 LF = 000012 LIN108 072740 MRMVEC 076627 
EM30 067361 FRSTER 001400 LIMIT 001410 LINIOC 073001 MSF ULL 04 
EM31 067413 = 2 LINAS 071612 LINIOH 073106 MSGCYL 075072 
EM32 067456 F1 = 000004 LINB3S 071 LIN11H 073173 074107 
EM33 067511 F2 = 000010 LINBS 072041 LIN2C 071374 MSGON 
E 0675 F3 = 000020 LINB6_ 072154 LIN2P 071415 MSGSEC 075110 
EM35 067630 F4 = LINCA3 071643 LIN2S 071441 MSGTRK 075101 
EM36 067 GENDPB 066070 LINC6_ 072207 LIN3.1 022040 SWRO 074252 
EM37 067717 GENREG 06611 LINDA3 071654 LIN3.3 022146 MXDLTA 035772 
E 066324 GETADR 026700 LINDEC 023156 LIN3.4 022200 F = 001 
EM4O 070001 GETBUF 016312 LINDS_ 072024 LIN6.1 0226 MXLACT 035770 
EM41 70044 GETID 6604 LINENS 071575 LIN6.2 022630 W 035776 
EM42 070110 GETLMT 026546 LINEOS 072142 LIN7M 072312 M.DPID 03 
EM43 070171 GETPAR LINEPS 072131 LIN70 072340 M.DP40 030714 
EM44 GETPAT 0022 LINE? 021112 LIN7P (72350 M.DP41 030750 
EM45 070327 GETREG= 0001 LINE2 21166 LIN7R 072440 M.DP42 60 
EM46 070415 GETREM 030562 LINE2ZA 021336 LIN7S 072370 -DP44 031012 
EMS GETREQ 04 LINE2B 021354 LIN7T 072412 M.DP50 031024 
EMSO 070467 = LINE3 21574 LIN7X 072424 074244 
EM51 070525 GODRIV 017024 LINE3A 021602 LIN8SM 072455 = 
GTSWR = 1044 LINE3B 021610 LINIB 072500 NEDCLK 074173 
70570 HCE = LINE3SC 021622 LINSE 072625 = 
ENDCMP 014564 HCEER 012432 LINE3D 021632 LIN9IG 072655 NEWASN 025574 
ENDCON 001454 HCI = LINE3E 021700 LINSH 072527 NEWUNT 
ENDET 001512 HCRC = LINE3F 021766 LIN9I 072605 NOMTCH 013034 
ENDPAS 074045 HCRCER 011156 022244 LKPAR 005232 74540 
077752 HEADER 001516 LINES 022334 LODEV 073515 NOTAVL QO 
ENDSEK 460 HEDLIN 074517 LINESA 022434 LSC = 004 NOTPRS 073451 
ENDTST 074071 HOUR 001366 LINESB 022502 LSTAD 1356 NOTPRT 001510 
ENTADR 074427 HT = 000011 LINE6 022544 MAIN 006100 NOTRM 3430 
ENTCOM 074332 HZ 001314 LINE6A 022556 MAINDA 2 NOTSAF 073505 
ENTDAT 302 A = LINE6B 022564 MAIN] 006260 = 
ENTDRV 074353 IAEER 012274 LINE6C 022572 MAIN2 OFFCOD 002470 
ENTID 076320 IDIS 074476 LINE6D 022600 006500 OFFDIR= 000001 
ENTLMT 074377 IDLE LINE? 022654 MANTER 027226 = 1 
ENTPR 005322 IDLE1 006774 LINE7A 022776 MASK OFFSET= 000 
EOPX 3047 = 100 LINE8 023112 MATCH 014632 OFFST 015710 
EOP1 030232 ILF = LING6 072236 MAXCYL= 000106 OFLIN 007544 
EOP2 030254 ILR_ = LINKDV 030610 , MAXDL 66 OF MSGO 
ERCTR 001406 INCHRD 024244 L 071475 MAXER 001470 OFMSG1 002421 
ERPRC1 0072 INCMIS 024514 LINM4 071740 MAXSEC= OFMSG2 002444 
ERPROC 007252 TNCSKI 024270 LINNS§ 071513 MAXTRK= 000112 OFMTBL 002474 
ERR iINCSOF 024220 LINOCT 023124 = 020000 0034 


= 040000 MCPE ONES 0 
ERROR = 104000 INCTOT 024340 LINPS 071537 MCPEMX 035760 OPE = 000010 
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SYMBOL SEQ 0192 
OPERID 001334 PSW == 177776 RMCS1 = 000000 SEEK = 000105 SW2 = 000004 
OPI_ = 020000 PUNSAF 007350 RMCS2 = 000010 SEEKFG 035724 SW3 = 000010 
012050 PWRVEC= 000024 RMDA = 000006 SELDRV= 000145 SW4 = 000020 
OPIERT 012114 QCNT 04 RMDB = 0000 PAR 017102 SWS == 000040 
0761 QDRVO 043546 RMDC = 000034 SETFMT= 000143 Ss = 000100 
OPT 037042 QDRV1 043566 RMDS = 000012 TVEC 0053 SW? == 000200 
OPTBL 002134 QDRV2 043606 RMDT = 0000 SET.IE 043402 Sw = 0004 
= 200 QDRVS5 043626 RMEC1 = 000044 SHDTYP 023644 Sw9 = 001000 
ORDERQ 001526 QDRV4 043646 RMEC2 = 000046 SIXTEE 001374 SYSTAT 073535 
PACK 001320 QDRVS = 0433 RMERRS 035614 SIZMEM 005054 T 071510 
PAR = 000010 QDRV6 043706 RMER1 = 00001 K = 040000 TABLE 075460 
PARENT 027702 QDRV7 043726 RMER2 = 000042 SKIER 012614 TABLEO 075500 
PARER 012202 QINPT 043464 RMHR = SLASH 075216 TABLE1 075546 
PARLST 075120 QOUTPT 043504 RMINIT 036000 SPOTCK 020760 TABLE2 075614 
PARQ 001662 QSTART 043524 RMLA_ = 000020 SRCHWT 035676 TABLES 075662 
PAR1 075250 QST 043526 = 000024 STACK = 001100 TABLE4 075730 
PAR10 5360 QTERM = 043 RMMR2 = 000040 003626 TABLES 075776 
PARi1 075370 QUES 073327 RMOF = 000032 START1 003636 TABLE6 04 
PAR14 RANCYL 017402 = 000 START2 0036 TABLE? 076112 
PAR15 75410 RANPAT 017636 - RMSN_ = 000030 STATHD 073644 TAB.XY= 007114 
PAR16 075420 RANSEC 017242 RMTMR = =042310 STATIN 001316 = 
PAR19 075430 RANSIZ 017516 RMVEC 035764 STATIS 016154 TBITVE= 0 
PAR2 RANTRK 017316 RMWE = 02 STATPR 023530 40700 
PAR20 075440 RMOS 036550 STKLMT= 177774 THEAD 017162 
PAR21 075450 RANXIT 017646 RNOP = 000101 STNDAT 0025 TIMER 035726 
PARS 075270 RATIO 00 RTC = 117 STO 0424 TKVEC = 
PARS 5300 RDCHR = 104410 RTINCTR 015622 ST01 042434 TPVEC = 000064 
PARS 075310 RDDAT = 000171 R6 =%000006 STO2 042530 TRAPVE= 000034 
P 75320 RDHD = 000173 R7 =%000007 ST03 042560 TRE = 040000 
PAR7 075330 RDLIN = 104411 1534 STO5 042 TRFER 012514 
PAR8& 5340 RDY = SATPOW 033572 5106 042612 TRKLMT 001450 
75350 RD.ADR 042746 SAVEFG 035722 ST07 042650 TRNSWT 035674 
PASCNT 00 RD. 042722 SAVER1 001402 ST08 042700 TRIVEC= 000014 
PA = 20 RD.RM1 042744 SAVERS 0U140 STO9 042710 003644 
PATTEN 001514 RD.RM2 3064 SAVREG= 104412 023616 TYPDS = 104405 
PCLOCK 00 RD.RM3 043070 SC SVRH70 043264 TYPE = 104401 
PERIOD 074250 RD.RM4 043074 SCMND 025704 S 01154 TYPOC = 104402 
= 002 RD.WRD 042750 SCOPE = 0176 TYPON = 104404 
= 001000 READDR 023176 SC04 = SWIIM 007506 TYPOS = 104403 
PIP = READHD 015734 SC1_ = 000100 S = 000001 TYPRI4 031164 
PIRQ = 177772 READIN= 000121 SC10 = 001000 SwOO = 000001 UCPAR 007414 
PIRQVE= 000 RECAL_= 000107 $C11 1772 SwO1 = 000002 ULDFLG 035702 
RECALT 01564 SC12 042102 Sw02 = 000004 001 
POSER 011774 RECALO 015652 $C13 042152 SWO3 = 000010 UNS = 04 
PROCES 007162 REDAPK 026162 C2. = 000200 SWw04 = 000020 12754 
PRTBAD 01545 REFMT 00704 SC20 = 002000 SwOS = 040 UNTASN 0734 
PRTIM 007610 REFMTX 007160 SC3 041220 Sw06 = 000100 UNTMSG 073331 
PRO = 000000 RELBUF 016446 SC4 041224 Sw0O7 = 000200 UNTNOT 3 
PR1 = 000040 RELSE = 000113 SC5 041236 SWO8 = 000400 UNTOFF 073337 
PR2 = 100 REPHD 073572 SC6 041422 SwO9 = 000 UNTON 073350 
PRS = 000140 R 1034 SC6A 041536 Swi = 2 UPE = 020000 
PRE = 200 RESREG= 104413 SC? 041664 SW10 = 002000 US1 = 000001 
PRS = 000240 RESVEC= 000010 Sc8 041742 SW11 = 004000 US2 = 000002 
PR6 = 300 RETRY 001352 SDETAL 023666 SW12 = 010000 US4 = 000004 
PR7 = 000340 RMADR 035762 SEARCH= 000131 SW13 = 020000 VV = 000100 
PS = 177776 RMAS = 000016 SECLMT 001446 SW14 = 040000 WAIT 001640 
PSEL = 002000 RMBA = 000004 SECOND 001372 SW15 = 100000 WATPAK 026144 
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WCE = 040000 SCNTLC 032256 SITEMB 001130 $POSIT= 000042 $SKI_ = 4 
WCF = 0 SCNTLG 034765 $LF 001204 $POWER 033562 $SOFT = 000060 
WCFER 012656 SCNTLU 034760 $LFLG 033405 SPREVA= 000032 = 4 
CHKX = E = 24 $LKCSB 001300 $PREVO= 000027 $STUP = 177777 
WCKD = 151 $COMND= 2 $LKCSR 001276 SPSEL = 000003 SSUPRS 031124 
WCKER 010630 SCPUOP 001234 $LKS 001304 033550 SVPC = 00021 
HD = 000153 SCRLF 001203 $LLVEC 001306 $PWRDN 033410 = 
WCSEL 001502 $CYL = 000012 SLONUM 035114 SPWRMG 033544 $SWREG 001230 
Cc 5 $DBLK 034 $LPADR 001122 3462 $TATUS= 000016 
~ $DB2D 035212 SLPERR 001124 SQUES 001202 STERM = 3 
WLEER 012326 $ 035406 $LPVEC 001302 5014 $TESTN 001212 
= SDECVL 035372 $SLSTAD 076476 $RDCHR 03464 $TI 
WRTDAT= 000161 SDEVCT 001216 $MADR1 0012 $RDLIN 031766 $T 001162 
WRTHD = 16 DEVM 001264 SMADR2 001244 $RDSZ = 0000 $TKINT 0 
0 030546 $MADR3 001250 $READ = 000052 $TKS 1 
WRTPK1 020424 SDRVID= 002106 SMADR4 001254 $R = 000014 $TKSRV 031634 
WRTPK2 SDSPLY 031212 $MAIL 001206 SRESRE 035154 1174 
WRTPKS 020702 SDTBL 034336 SMAMS1 001236 SRETRY 016026 $IN = 
WRTPK4 020734 SENDAD 030536 SMAMS2 001242 272 STNPWR 035322 
WRTPKS 020742 SENDCT 030522 SMAMS3 001246 SRMAS = 002134 STOTAL= 
WRT.AD 043166 SENV 001226 SMAMS4 001252 = 002122 $ 
WRT .RM SENVM 001 SMBADR 001102 S$RMCS1= 002116 STPFLG 001173 
WRT.R1 043162 SEOP 030200 SMFLG 033404 SRMCS2= 002126 STPS 001164 
WRT.R2 043250 SEOPCT 030514 $MISPO= 000066 SRMDA = 002124 $STRANS= 
WRT.R3S 043254 SERFLG 001117 SMNEW 035003 $RMDB = 002140 STRAP 035526 
WRT RS ERMAX 001131 $MS 1222 SRMDC = 002152 $TRAP2 035550 
WRT.RS 043262 SERROR 032262 S$MSGLG 001224 S$RMDS = 00213 $STRK = 
WRT .WD SERRPC 001132 SMSGTY 06 SRMDT = 002144 $TRP = 
XWONT 017456 SERRTB 003546 SMSWR 034772 SRMEC1= 002162 STRPAD 035562 
XXDP SERRTY 032452 SMTYP1 SRMEC2= 002164 $TSTM 
Y 074246 SERTTL 001126 SMTYP2 001243 SRMER1= 002132 STSTNM 
ZEROS SETABL 001226 SMTYP3 001247 SRMER2= 002160 STTYIN 032244 
ZROIND 001376 SETEND 001272 $M SRMHR = 002154 STYPDS 034 
SAPTHD $FAIR = 000072 $NCODE= 000074 SRMLA_ = 002136 STYPE 
SATYC $SFATAL 001210 $NCYL = 00010 SRMPR1= 002142 $TYPEC 033020 
$ATY1 033142 SFFLG 033406 SNEXT = 000104 SRMMR2= 002156 STYPEX 033140 
$ATY3 033150 SFILLC 001172 $NPATC= 000075 SRMOF = 002150 S$TYPOC 033730 
SATYS 33160 $FILLS 001171 = SRMSN = 002146 STYPON 033744 
SAUTOB 001150 $FIRST= 000 $N = SRMVEC 001274 $TYPOS 033704 
S$BASE 001262 SFMT = 1 $NULL 001170 SRMWC = 002120 SUNIT 001220 
SBDADR 36 $GDADR 0011 DL= 2 $RMO2 = 073553 SUNITM 001110 
$BDDAT 001142 SGDDAT 001 TST= 000000 $RMO35 073560 $SUSWR 001232 
$BDSEC= 000 $GET42 030526 SOCNT 034126 $RMOS 073565 $VECT1 001256 
LL 001176 S$GTSWR 034 SOCTVL 035510 S$RTNAD 030550 S$VECT2 001260 
$BUF_ = 000006 D= SOMODE 034130 S$SAVRE 035116 $WRDL = 000020 
SCDW1 001266 $HD = 000000 SOPERC= 000036 $SAVR6 033560 SWRDM = 000004 
$CDW2 001270 $HIBTS 0011 $PACK = 000026 $SB2D 031524 SXOFF = 000023 
SCHARC 033136 SHINUM 035112 $PASS_ 001214 $SB20 031554 $XON = 
SCKSWR 034356 $ICNT 001120 $PASSC= 000070 $SEC = 000010 $$GET4= 000000 
SCMTAG 001114 SILLUP 033554 $PASTM 001106 SSETUP= 000156 90 tt poAESA 


= 000000 SINTAG 001151 $PATTC= 000030 $SIZE 076346 


- ABS. 077752 000 
000000 001 
RRORS DETECTED: 0 





SEQ 0193 





VIRTUAL MEMORY USED: 


53264 WORDS 


( 209 PAGES) 
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8-64 8-117 &-201 9-N06 9-U05 9-U05 9-U05 


9-N12 «10=>754 10->79 
9-168 9-168 
9-891 9-=25 9->04 9->10 9=>15 9->19 9->61 9-C51 9-E01 9-E08 10->254 


9-M80* 
9-172 9-172 


9-=30 9-=32 9->59 9->63 9-867 9-A12* 9-A20* 9-A35 


9-;01 9-; 87 
9-L36* 9145 10-791 10-793 10-801* 10->364 
9-<69% 9-A14*® 9-A15 9-A19* 9-A22 9-B08* 9-B12* 9-L38* 9-M50* 10-802* 10-803* 


9-831 9-831 9-831 P:e7 9-34 :59 260 9-;68 9-<02 9-<04 9-876 
9-C28 9-C30 9-C55 9-C68 9-C87 9-007 9-D26 9-D41 9-D69 9-D92 9-E11 
9-E66 9-E99 9-F 08 9-F 32 9-F 57 9-689 21 9-109 9-J87 8 

rae rt sakot 9-168 9-168 9-168 9-168 9-170 9-T70 9-170 


9-U0 
9->65 9-200  9-A00 9-A30® 9-A77® 9-A78 —9-ABS*®# «= 9=D14G.«=LB1® —-9-MG6* 10-799 
9-F44 9-F49 —9-H49—I=H49 = «O-HS7 = -HOS «= «9-S28- UTI 


9-M20* = =9-M20* 9-M20* 9-M20* 10->79H 10->83 


8-52 8-121 8-212 9-168 9-72 9-174 9-174 
9-172 9-174 


9-T68* 
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SE 
SERRPC 5-0# 9-168 9-T68 9~T68 9-T68* 9-T68* 9-770 


SERTTL 5-O# 9-168 9-168 9-'68* 

SESCAP 10-817 10-868 10-870 10-;32 10-;91 10=>00 

SET 5-0" S09 

SFAIR eke 9-121* 9-129" 9-130 10->514 

SFFLG 9-174 9-T74H 9=T74% =T7G% = Qe T7G* 

SFILLC 5-O# 9-172 9-172 9-172 

SFMT a" 10->214 10->22 10=>23 10->24 10->25 10->26 10->27 10=>28 10=>29 10->30 10->34 


~O# 
$GET42 9-20 9-666 9-056 9-P41# 
$GTSWR 9-S83  9-U0SH = 9-U15. «9-75 
SHARD 9-77 9-100 -9-100* 10->47H 


I 8-13* 9-P52 9-U07 9-U07 9-U07# 9-U07* 
SICNT 5-O# 
SILLUP 9-176 9-176 9-T764 
SINTAG 9-U0 9-U05 9-U05 
SITEMB 5-O# 9-168 9-168 9-168 9-T68* 9-170 
SLF 5-04 9-144 9-T68 9-168 9-172 9-T72 
SLFLG 9-174 = 9-T74* 
$LKCSB 9-G50* 
SLKCSR 6-0 9-644 9-G51* 
SLKS 6-04 9-G55 9-G60* 
SLLVEC 6-04 9-G57 

ONUM = 8-13 * 9-721 9-P51 9-U07 9-U07 9-U07# 9-U07* 
SLPADR 5-0# 
SLPERR 5-O# 
SLPVEC 6-04 9-G47 ‘ 
SLSTAD 8-93 16-854  16-85* 
SMADR1 5-04 
SMADR2. 5-O# 
SMADRS = 5-0# 
SMADR4 5-04 
SMAIL 4-275 4-275 5-04 8-7 8-13 8-14 8-51 9-T68 9-172 
SMAMS1 = 5-0# 
SMAMS2 = 5-0# 
SMAMSS = 5-O# 


SMF LG 9-174 9-T74H 9-T74% = = T74* 
SMISPO 8 9-F52 9-H77 9-102 9-102* 10->494 
9-U0 9-U05 


SGAD 5-0# 9-174 9-T74* 
SGTY  5-0# 9-174 9-174 9-T74* 9-T74* 


SMTYP? 5-0" 
SEQ 0198 
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S REFERENCE TABLE (CREF V01-05 ) SEQ 0199 
SMTYP2 = 5-O# 
SMTYPS 65 


5~0# 
SNCODE 9-197% 9=?24% 9-787 9-790 9-a15 9-a22 9-a70* 9-398 9-Al2 9-A13 -10=>55# 10->56 10=>57 10->58 


SNCYL 9-193* 9-2?28% 9-729 9-231* 9-785% 9-045 9-A30  =10->594 
SNEXT 9-108 9-203* ays i 9-A38* 9-B15* 9-127 10->614 


A 
SNSEC 9-195* =9=227* = =9=252e 9-250% 9-A29 10=>574 


SNULL 5-04 9-172 9-172 9-172 . ne oes ee aR 
SNWRDL 9-196* 9-289" 9-a21* 9-A31 9-A32 -:10=>604 
SNWIST 8-74 


SOCNT 9-U01# = 9-U01* 9-U01* 


SOMOD 

SOPERC 9->98* 9->99%  9-A64 9-A66 9-F 15 9-F42  ° 9=H34 9=-P41 
SPACK 8-240* 9-110 9-A68 9-A87 9-B04 9-B18* 9-J98* 10->374 
SPASS 5-0# 8-13* 9-P41 9-P41 9=-P41* 9=-P41x 9=P41* 9=P41* 
SPASSC 9=H37 9-J95* 9=-P41 9-P41 9-P41* 10->504 


SPATTC 9=>72 9-A28* = 9-B14* 9-L39% 9-140" 10->394 
SPOSIT 9-=40* 9-=41% 9=202% 9-2703* 9-F47 9-P41 9-P41 = 10=>424 


SPREVA 9-200 9-A00* = 9-A01* 9-A04* 9-ADS* 9-A06* 9-A73* 9-A74% 9-A75* 9-059 9-D63 9-D67 9-075 = 10-799 
SPREVO 9-€96* 9-997* 9-A17 9-A24 9-A71* 9-COS 10-798* 10->384 


10=>414 


S 5-O# 9-137 9-168 9-168 9-172 9-172 9-U05 


SREAD  9-=36*% 9-=37% 9-F28 9-P41 ss «9=P41—s« 10-448 
$REG Q-L27 10->29H 10-211 10-211 10-211 10-711 10-711 10-211. 10-211. 10-711. 10-711 10-217. 10-211: 10711 


SRE SRE 9-U15 
SRETRY 9-382 9-467 9-534 9-581 9-622 9-658 9-686 9-756 9-787 9-803 9-<89# 9-=07 
$RMO2 8-185 15-154 


$RMBA 9-870 9-:91 9-322 9-343 9-;75 9-:95 9-=24 9-C52 9-D02 9-E07 9-E18* 9-E19 19->85# 13-7 
$SRMCS1 =—-9=211 9-213 9-846 9-296 9-A71 9-B99 10-798 §=10->834 10->84 10->85 10->86 10->87 10-> 10->89 


Q->88 
10->90 sty 10->92 10->93 10->94 10->95 10->96 10->97 10->98 10->99 10-200 10-201 10-202 10-211 


: 211 7 ; 211 ? 6 
S 9-319 9-477 9-527 9-573 9-614 9-720 9-735 9-752 9-848 10->87# 13-6 
SRMDA 9=-<35¢ 9-227 9-A76 9-D35 9-D90 9-619 9-G20  10->864 13-7 





$SRMDB 9-E22 = 10=>924 


13-7 


SEQ 0200 





RMUAO RMO5/3/2 PERF EXER 


9-190 
9-215 
10=>944 


9-601 
9-322 
i> 


6 16 
MACRO VO03.01 11-APR=80 14:52:06 PAGE S=4 
S REFERENCE TABLE (CREF VO1-05 ) 


9=-<34% 9-=38 
9-351 10=>884 


9-;07 9-E53 
9-E57 9-K90 
9-331 9-334 


9-501 
9-852 10-7004 


8-61 8-68 
9:92 a Ch 


9-H38 9-H73 
9->68 9-a53 
10->264 

4-266 4-266 
8-13 8-13 
9-T68 9-T68 


9-H99* 10->464 


9-909  9-:95 
4-266 4-266 
9-F26 -9-F 31 
4-64 4-64 
9-P41 -9=P41 
9-168  9-T76 
9-226 9-232 
9-<90  9=<96 
9-P42x 

9-1074 9-168 
9-24  9~557 
9-S55# 

9-S58x  9-S72« 
8-126 8-131 
8-7 8-7 
9-U114 


9-103 9-103* 
9-172 9-T72* 
9-172 9-172 
9-172 9-172 


9-228 
13-6 


10-7014 
9-L5 


2 
9-337 


9-556 
13-6 


16-111 
9-49 


10=>484 


9-;79 
4-266 


9-F 45 
4-64 
9-P41 


9-234 
9-=22 


9-168 
9-72 


9-S82* 


8-7 
9-063 


9-A77 


13- 


9-340 
9-593 


9-D05 


9-172 
9-S84* 


8-7# 


10->454 


6 
10-7024 


9-039 


10-711 


9-343 
9-850 


9-E24 


9-A37* 
4-2664 


9-F 94 
4-64 
9-168 


9-238 
9-D98 


9-U05 
9-172 


9-078 


10-711 


9-346 
9-=00 


10=>844 


9-H78 
9-A84* 


4~-2664 
8-13 


9-B06* 
4-2664 


9-0674 


4-64 
9-168 


. 9-240 


9-M56 


9-U05 
9-72 


9-G21 


10-711 


9-349 
9-=03 


13-7 


9-111 
9-D24 


4-2664 
8-13 


9-B10* 
4-2664 


4-64 
9-168 


9-242 
10->304 


9-U05 
9-U05 


10=->974 


10-711 


9-354 
10=>894 


9-116 
9-L79* 


4-266# 
8-14 


9-E27 
4-2664 


4-64 
9-168 


9-316 
13-8 


9-U05 
9-U05 


13-8 


10-711 


9-357 
13-6 


9-121 
9-48 


4-2664 
8-14 


9-L44* 
4-2664 


5-0 
9-168 


9-407 


9-U05 
9-U05 


10-711 


9-398 


9-S264 
9-M59* 


8-13 
8-14 


9-L47* 
4-2664 


5-0 
9-168 


9-410 


9-U05 
9-U05 


10-711 
9-415 


9-M60 


8-13 
8-51 


10->354 
4-2664 


5-0 
9-168 


9-427 


9-U05 - 


SEQ 0201 


10-711 
9-417 


9-05 


STRANS 


9==28: 


9==29* 


9== 34s 


9-=35* 


9-F 23 


10=>434 


16 


SEQ 0202 


gee RMOS/3/2 PERF EXER 


I 16 
MACRO VO03.01 11-APR=80 14:52:06 PAGE S-5 


ROSS REFERENCE TABLE (CREF v01-05 ) 





-0 

4-2514 

5-0 

10-924 

10-984 
-0 


4-2754 


5-0 
9-0614 
5-0 
5-0 


5-0 
10-361* 
10-:11* 


9-A83* 


9-;76 

9-A96* 
10=>42 

9-A97* 


10-738* 





9-019 9-L80* 99-M47* 10->274 

9-U15 9-U15 9-U15 9-U15 9-U15 

9-U15 9-U15 9-U15 9-U15 

9-U15 9-U15 9-U15 9-U15 9-U15 

9-U1S# = 9-U1SH# = 9-U1SA# 9-UTSA# 9-154 
9-U164 

9-149 9-T534 

9-U15 9-U15 

9-U05 

9-=34 9-=60 9-=67 9-=69*  9-=70 

9-B02* 9-C48 9-E04 9-E25 9-L41* 
10->43 = 10->44 =10->45 = 10->46 = 10-47 

9-A98* 9-A99 9-B01* 9-B03* 9-L42* 
10-747* 10-:09 


9=-=71* 
10->344 
10=->48 


9-L43* 


SEQ 0203 
9-U15 9-U15 9-U15 9-U15 
9-U15 9-U15 9-U15 9-U15 
9-U15 9-U15 9-U15 9-U15 
9-U15# = =9-U15H# = 9=UTSH# 9-154 
9->02 9->11 9->16 9->20 

10->35 10->36 10->37 10->38 
10->49 10->50 10=->51 10->55 
9-M49* 10->244 


Se ste a eer cee a” 


5-0 


ADDW7 


SEQ 0204 


Ss 4 
MACRO VO3.01 11-APR-80 14:52:06 PAGE S=6 










CZRMUAO_RMO5/3/2 PERF EXER 


CROSS REFERENCE TABLE (CREF V01-05 ) SEQ 0205 
5-0 
5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
5-0 5-0 
4-1614 
5-0 5-0 
5-0 
9-172 99-1744 
9-168 9-172 9-174 99-1744 
8-13 9-1744 
9-T72 174 9-1744 
9-J33# 
8-205 9-J32 9-J484 
9-J44 9-J59 9-J674 
9-J68 9-KO04 
9-J80 9-K024 
9-579 9-K054 
1 15-294 
8-123 16-174 
9-J46 J 9-K03 9-K16 9-K42 9-K61 9-0274 
6-0# 9-18 9-68* 9-176 9-G79 9-G86 9-J39* =9-J42 9-J54*% 9=J57 9-J67 9-K31 9-K33* 9-K53 
9-K63 9-K77 9-042* 9-051 9-P41 9-P41* 
9-J34% = 9-J40® = 9-JG9x = 9-J55* = 9-KO2* = 9-KOB® = 9K10® = -K12" —-K41*® = 9-K60* «9-03 24 
9-J314 : ae 9-K98 9-L04 9-L09 
4-1744 
4-1754 
4-1764 
4-177# 
4-17 
4-179# 
4-1804 
4-1488 
9-68 9-G86 9-J39 9-J42 9-554 9-J57 9-J67 9-K31 9-K33 9-K53 9-K77 9-042 9-P41 10-1524 
yd one 10-530 10-928 10-950 10-958 10-959 10-979 10-:69 
6-04 9-T68* 13-1 13-2 





Ei SRE ies Sar ey 


5-0 5-0 


AUNIT 


SEQ 0206 





8 1 
CZRMUAQ RMOS/3/2 PERF EXER MACRO V03.01 11-APR~80 14:52:06 PAGE S-7 


CROSS REFERENCE TABLE (CREF V01-05 ) 


AUSWR 5-0 5-0 

AUTOCK 6-0# 

AVAIL 6-04 9-22 9-62 9-66* 9-104 
AVECT1 4=-264# 5-0 5-0 


5 5-0 
BADENT 9-N42 9-N58 9-N73 9-010 15-454 


BADSEC 6-04 9-160* 9-B57* 9-(26 9-H99 
BAI 4-1074 
BEGCOD 6 9=L 9-L37 
-O# 9-L39 
BEGSIZ The 9-141 9-L42 
BITOO -81 4-814 9-834 9->63 9-787 


B1113 4-814 9-334 0 9-752 
BIT14 4-814 9-213 9-215 9-319 

9-984 10-401 10-436 10-847 10-990 
BIT15 4-814 9-211 2 


BITS 4-814 9-340 
1T6 4-814 9-417 9-(46 
IT7 4-814 9-410 9-620 9-<96 
IT8 4-814 9-532 9-556 9-562 9-593 
BIT9 4-814 349 9-752 
8-75 8-230 9-G84 9-J75 
BLNKS1 1 9-C32 9-H73 9-H73 
BLNKS2 8-181 9-831 9-831 9-831 9-831 
9-C35 C65 9-D16 9-D21 9-D37 
16-106 16-115 
NKS3 14-564 
NKS4 8-154 9-K80 14-554 
VEC 4-814 


TBL 6-04 8-94* 8-95* 8-96* 8-99« 


9-=73* 9-=99 9->00 9->12* 9->17s 
8-66 16-984 
SY 9-164 15-464 
CFLAG 6-04 8-85* 9-3 9-167* 9-174 


CHGADR 6-0# 8-3* 8-6* 8-203 8-218 


9-107 


9-100 


10-886 


9-598 
9-594 


8-100* 
9->22 


9-M08* 
9-T93* 


9-140 9-164 
9-101 9-102 
9-=22 9-D98 


9-K35 9-K56 
14-584 
9-;57 
9-E44 9-E55 
8-102*  8-103* 
9->23 9->36* 


9-M13 9-NO09* 
16-98 16-100* 


9-103 


9-196 


9-;57 
9-H36 


8-106* 


9-N31 





9-S58 
10-901 


10-284 


10-; 28 
9-573 


10-389 
10-990 


9-;57 
9-H41 


8-110 


9-N55 


10-337 
10-921 


10-318 


9-614 


10-401 
10-:60 


9-;65 
9-H49 


8-112 


9-N70 


10-395 
10-954 


10-337 


9-720 
10-404 
10-:90 


9-;65 
9-H49 


8-113 


9-N93* 


10-469 
10-<17 


10-406 
9-735 


10-406 
10-:97 


9-:65 
9-H57 


SEQ 0207 


10-782 | 


10-439 


9-912 
10-436 | 


CHKADP 


9-198 


9-792 


9-a404 


SEQ 0208 





CZRMUAO RMOS/3/2 PERF EXER 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


C11 10-459 10-4874 
C13 10-461 10-5104 
CI4 10-450 10-5324 
cI5 10-509 10-531 10-6094 
C16 10-548 10-558 10-560 
C17 10-391 10-468 10-499 
10-581 10-591 10-602 
C17B 10-6274 10-944 
c18 10-630 10-6414 10-813 
CK.CHR 9-R524 9-RB9 9-R97 
CK.DEC 9-R 9-R58 
CK.DIG 9=N41 9-N57 9-N72 
K.NUM 16-109 16-118 16-1384 
CK.OCT 9-R124 R60 
KBUS 9-218 9-8654 
CKCLK 8-143 9-187 
CKCLK1 9=G42 39-6534 
CKCLK2 9-G54 9-G624 
CKCLK3 9=G52 1 9-G694 
CKERR 9-217 9-8464 
CKFMT 330 9-5564 
CKHCE 9-333 9-5934 
CKSWR 9-168 9-168 9-U154 
CLKFLG —O# 9-G40*  9-G45* 
CLOCK 9-658 99-1284 
LR 4-1 10-242 0 
CLRDPB 8-231 J84 9-L194 
CLRQUE 10-224 10-=134 
CMCNT 6-04 9-833* 9-837 
CMCYL 6-04 9-894 9-895* 
CMDAT 9-911 9-921 9-9264 
CMHED 99-9124 
CMPAR 9-221 99-8834 
CMPARD 9-446 9-8874 
CMPLMT 6-04 9-841 9-898 
CMPRES 9-42 96 9-142 
CMPRT 9-923 9-938 9-948 
CMPRX 9-920 961 966 
CMSEC 6-04 9-897* 9-916 
CMSTR 9- 
CMSTR2 9-915 9-918 99-9224 
CMTRK 6-04 9-975* 9-977 
COLON 9-114 9-119 15-404 
COMTBL 6-04 9-A14 9-L38 
CR 4-814 9-172 9-172 
14-53 14-54 
ICRLF 4-814 8-14 14 
15-23 15-25 15-27 
15-41 15-42 15-43 
CYLIMT 6-04 8-241 9-L66 
CYLNDR 9-600* 9-601 9-604* 
DATAO 6-0 -0# 


10-617 
10-:82 


9-007 


9-G56* 


10-6144 
10-507 
10-6194 


9-R834 


9-107 


12-9 


8-39 
15-30 
15-44 


9-D85 


10-515 10-525 
10-733 10-763 
9-903 9-905 
9-980* 9-981 
9-A51 

9-995# 

9-974* 9-988 
12-10 14-42 
8-45 8-46 
15-30 15-34 
15-45 = 15-46 
9-E44 9-44 





D1 
MACRO V03.01 11=APR-80 14:52:06 PAGE S-8 


10-529 10-540 10-547 10-553 
10-940 10-<29 
9-906 9-909* 9-960 9-964 
9-985 
14-43 14-44 14-46 14-48 
9-754 9-172 9-T72 = 15-14 
15-35 15-36 15-37 15-38 
15-47 15-47 15-49 15-50 
9-M52. «10-720 =: 16-1714 


10-557 


9-967* 


10-571 


9-991* 


14-51 


15-19 
15-39 
16-17 


SEQ 0209 


10-577 


14-52 


15-21 
15-39 
16-81 


1 
DATAIZ 6-0 6-04 . 


SEQ 0210 


CZRMUAQ RMO5/3/2 PERF EXER 


F 1 
MACRO V03.01 11-APR-80 14:52:06 PAGE S-9 


CROSS REFERENCE TABLE (CREF V01-05 ) 


DATA14 





9-K70 16-66% 16-69% 16-69% 16-69% 16-69% 
8-13 

2-24 

8-13* 9-168 

9-295 9-306 9-378 9-392 9-413 9-450 
9-673 9-679 9-697 9-707 9-716 9-731 
9-831 9-831 9-831 9-831 9-831 9-831 
9-:41 9-:44 9-:47 9-:56 9-:59 9-;15 
9-;65 9-;67 9-;68 9-391 9-:97 9-<02 
9-C23 = 9-C28 «= 9-29 9-30 9-31: 9-32 
9-C80 9-C87 9-001 9-004 9-007 9-D13 
9-041 9-051 9-D56 9-058 9-061 9-065 
9-E06 = «9-E11 (E17, ss E21—sCOESO—s«O9-E 32 
9-59 9-F65 9-£66 9-E72 9-E78 E 
9-F27, 9=F32, F410 F460 =F 51 =F 5G 
10-256 10-345* 10-371 10-831 10-856 10-980 
10-425* 10-463* 10-632" 10-649  10-665* 10-834 
13-2 13-3 13-4 

10-2114 16-54 





16-69* 16-69* 
9-460 9-481 
9-747 9-767 
9-831 9-831 
9-;20 9-:52 
9=-<04 9-=13 
9-35 9-C40 
9-D16 9-017 
9-D69 9-074 
9-E39 9-E44 
9-E90 9-£97 
9-F 57 9-F 66 

10-982* 10-:51 

10-:53 10=-:73 

16-54 


16-69* 





16-70* 


10-:76 
10-:93* 


10-:84* 


SEQ 0211 


DROP 9-256 9-301 9-0404 9-065 
SEQ 0212 





CZRMUAO RMO5/3/2 PERF EXER 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


DROPNG 
DRQ 
DRVACT 
DRVCLR 
DRVER 


9-046 
4-197# 
298 


15-224 


10-385 10-565* 


9-5464 
10-2784 10-373 


9-L5 

10-393 10-795 
8-228 9-J78 
10-399 10-433 
8-183 8-186 
5-0 8-13 
13-14 

13-64 

13-74 

13-84 

7-34 13-24 
13-34 
13-44 
13-54 

9-6704 

10-230 10-452 
10-291 

9-12 9-K35* 
9-;33% 9-357 
9-;47% 9-365 


9-;524 

9-;674 

766 9-; 684 
9-;25% J ;30* 
9-;26* 9-;31* 
9-:91%  9=;00* 
9-;09* 9=;11* 
9-334 9-341 

. * hans * 
11-34 


10-612* 


9-K05 


10-508* 
9-044 


9-;09 


10-634* 


10-983 


10=234* 
10-566* 
9-L96 


10-639% 
9-P41* 


9-;10* 


9-;37 
9-348 
9-;05* 
9-313 


9-343 





H 1 
+ MACRO V03.01 11-APR~80 14:52:06 PAGE S-10 


10-646 10-664* 10-752* 
10=235* 10-236* 10-237* 
10-683* 10-837 10-845 

10-514 10-280* 10-296* 
10-652 10-666 10-668* 
9-;27 9=; 29% 

9-;50 

9-321 

9-314" 9-316 9-;21* 
9-;45% 9=;47 9-:49 





10-852 10-884 


10-247 
10-858 
10-301* 


10=279* 
10-909* 
10-306* 


10-677* 10-741 


9-322 
9-;50* 


9-;33 
9=-;51* 


10-915" 10-922* 


10=289* 


10-753* 10-:56 


9-;36 
9-;58 


9-; 37% 
9-365 


10-937 


10-339 
10-985 
10-684* 


10-:66* 


9-;38* 
9-:65 


SEQ 0213 


10-949 


10-367 
10-:85* 


10-; 33 





EM10 9-262 311-98 


SEQ 0214 





CZRMUAO RMO5S/3/2 PERF EXER 
CROSS REFERENCE TABLE (CREF VO1-05 ) = 


ae 2 
MACRO V03.01 11-APR~80 14:52:06 PAGE S-11 


11-344 


10-783 10-:98  10-=384 
8-211* 8-215* 8-216% 9-P41 9-P41 


16-1734 
9-P4) 


9-P41  9-P41 ss «9=PG TH 
9-P41 = 9=P419=P41 P41 (PGT 
9-922* 9-934 9-947" = :54 9-257 





SEQ 0215 





ERPRC? 9=227 9=2328 9-414 9-=14 


SEQ 0216 





CZRMUAO RMOS/3/2 PERF EXER 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


9-210 9-214 
FRR 4-1478 
ERROR 4-814 
ERRVEC 4-814 8-13 
FO 4-1294 
Fl 4-1304 
F2 4-1314 
F3 4-1324 
F4 4-13 
FACTOR Q9==24% 9Q9-=25* 
FAIRNS —O# 
FALPAR 9-237 99-2674 
“IFALPR1 9-263 99-2714 
FER 4-1564 
FILBUF 9-88 9-120 
FISK 9=P41 9-P424 
FMT16 4-2174 
FMTER 564 99-7154 
F T -0*F 9-188 
FOwT1 8-2104 
FOWT2 8-217 8-2214 
FOWT3S 8-219 8-2574 
FRSTER 6-O# 9-445 
9-423* 99-427 
9-<67*  9-<68* 
9-M56 9-M59« 
GENREG 9-562 9-598 
GETADR 8-232 9-J91 
GE TBUF 84 9-117 
GETID 9-J89 9-M054 
GETLMT 8-242 9-976 
GETPAR 9-115 9-a954 
GETPAT 9-201 9-826 
GETREG 4-2534 
GETREM 9-716 9-745 
GETREQ 10-426 10-654 
Ss 4-268 4-268 
9-U15 9-U15 
9-U15 9-U16 
4-1284 
GODRIV 9-89 9-122 
GTSWR 8-14 8-51 
HCE 4-1594 
HCEER 5 9-7304 
HCI 47-2154 
RC 4-1 
CRCER 9-327 9-517 
ADER 6-04 9-725 
DLIN 9-K75 15-434 
6-04 8-80* 
4-814 9-172 
Z 6-04 8-79 
IAE 4-1624 
IAEER 9-345 99-6964 
IDIS 9-K73 15-424 
IDLE 9-7 9-102 





9-216 


8-13 


9-=27* 


9-2264 


8-13* 


9-=28 


9-595 


9-140* 


9-1504 


9-G42* 


9-=36 


9-839" 
9-<16 
9-<72 
9-M81* 


9-L68 
9-B13 


9-203 
10-875 
9-U15 


9-<89 


9-141 


9-G43* 


9-=444 


9-840* 

9-<31* 

9-<74 
10-7154 


9-L92K 
9-280 
10-939 
8-45 
9-U15 


9->924 


9-143* 


L 1 
MACRO VO3.01 11-APR-80 14:52:06 PAGE S=-12 


9-G54* 


9-886* 
9-<32* 
9-J73* 


9-U15 


9-T83* 


16-85 16-85 16-85* 16-85* 16-85* 
9-:02 9-:17 9=:29% 9-:52 

9-<38 9-<49% 9=-<S0* 9-<52 9-<65* 
9-M46* 9-M47% 9-M48% 9-M49% 9-M50« 
10-:87 10-:94 10-=744 

9-U15 9-U15 9-U15 9-U15 9-U15 
9-U15 9-U15 9-U15 9-15 9-U15 


SEQ 0217 


16-85* 


9-<66* | 
9-M54 


— wa a ey 


SEQ 0218 | 


9-152 9-1708 


IDLE1 


<i aia A ELL LAA A 


| N 1 

| CZRMUAO_RMOS/3/2 PERF EXER MACRO V03.01 11-APR=80 14:52:06 PAGE S-13 

CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0219 

1 4-878 

ILF 4-152" 

ILR 4-1538 

INCHRD 9-431 9I 

INCMIS 0 91024 

INCSK] 9-771 99-1014 

INCSOF 9-438 9-444 9-530 9-577 9-618  9-H99# | 

INCTOT 9-254 9-276 9-287 9=299 9-310 9380 9412 94329449 = 9465 9-507 9-510 9531: 9-550 
H578 8619 FES G95 GBS 7D 7H S706 9-739 9-751 9-770 9-783 9-801 9-859 

INTDON 8-257 15-478 | 

INTRVL 6-0# 8-83* —-9=135* 9-146 9-148 9148 =H 151* = 9-TB6* = 9-TBB = «9=THO® 16-4 

INVLD. 9-J21 15-35# 

IOTVEC 4-814 
41104 

ISR 10-239 10-7384 

IVC 4-231# 

KIPARO 16-85 

K 9-8 91624 

KSR1 9-163 _9-165# | 

LA 10-456 10-6994 

LACNT 10-1134 10-707* 10-708 10-729* 

LBC 4-229" | 

LBT 4-14.34 

LF 4-814 9-172 9-172 12- 12-9 12-10, 14-462, 14243 14-4460 14-46 14-48 = 14-49 14-51 144-52 
14-53. 14-54. 15-18 = 15-43 ; 

LIMIT 6-O#  9B41% 9-898% 9-899" 9-:31  9-:33% 

LINIOA 9-315 14-47# 

LINI0B 9 9-:20 14-484 | 

LIN10C 9-:67 14-494 

LINIOH 9:52 14-518 | 

LINI1H 9=:91 14-534 

LIN2C 9898 14-18 


9-D49# | 
9-D74M | 


9-E95# | 
9-F 04M 


14-344 ‘ 


9-F66 14-404 





14-284 


9-E78 


$ 








CZRMUAO RMO5/3/2 PERF EXER MACRO VO3.01 11-APR-80 14:52:06 PAGE 514 
CROSS REFERENCE TABLE (CREF v01-05 ) 


14-174 


9-25 
9-F 06 
9-377 
9-715 


9-379 
9-732 


9-394 


9-P644 


9-831 
9-;99 


9-831 
9-C63 





9-831 
9-D03 


9-831 
9-D06 


9-572 


9-:40 
9-D36 


9-D64 


9-546 
9-797 


9-548 
9-817 


9-571 


9-613 


9-:43 
9-D40 


9-D68 


9-568 
9-815 


9-570 
9-856 


9-612 


9-654 


9-:46 
9-E02 


9-D76 


9-609 
9-854 


9-611 
9-874 


9-653 


9-682 


9-;57 
9-E20 


9-719 


9-E844 
9-584 
9-860 


SEQ 0221 


9-D87 


9-650 
9-:20 — 


9-652 | 
9-B944, 


9-733 


9-734 | 


9-587 | 
9-878 | 


9-;57 | 
9-44 


LINTS 9-D88 = 14-124 
SEQ 0222 

















CZRMUAO_RMO5/3/2 PERF EXER 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


9-E90 14-324 
9-D04 14-164 
9-E06 814-214 
9-E45 = 14-594 
8-117 
8-178 9-40 
4-2304 
6-04 8-93 
9-P97H# 9-018 
9-202 9-0 
9-208 9-01 
9-020 9-0254 
9-P95 99-0294 
9-P71 -9-P 
9-34 9-180 
8-255 8-258 
9-57 9-754 
9-81 9-1014 
9-114 
9-593 9-NO54 
6-04 9-397 
9-926 9-:724 
8-241* 9-229 
6-54. -16-54 . 
—O# 8-107 
—~O# 8-86* 
8-244* 9-738 
8-243* 9-255 
4-924 
10-1 


9-J55 
8-96 


9-A94 
9-19 


9-415 
9-273 
16-54 
8-109* 
9-063 
9-L71* 
9-A81 


10-;61 


15-134 
8-97 


9-B20 
9-474 


9-461" 


9-A78 
16-54 
8-110 


10->694 
9-L69* 





9-579% 9=620* 
10=>654 10=>66 
16-54 16-54 

8-136 8-138* 
16-54 16-54 
16-54 16-54 

9-L67* 
9-L32 

9-L70* 
9-T84* 


E 2 
MACRO V03.01 11-APR=80 14:52:06 PAGE S-15 


9-656*  9-684* 
10->67 10->68 
9-299 9-a12 
16-84 16-84 
9-L81 10->664 
9-L72* 9-L79 
9-L80 10->684 


9-T92* 


9-755* 
10=>69 
9-914 


16-54 
16-54 


16-54 


10->704 
16-54 


9-786* 
10->70 
9-A95 


16-54 
16-54 


16-54 
16-54 
16-54 


9-<98 
10=>71 
9-A97 


16-54 
16-54 


16-54 
16-54 
16-54 


=03 
10->75 
16-3 


16-54 


16-54 
16-54 
16-54 


SEQ 0223 


16-54 


16-54 
16-54 
16-54 





te 
MXLACT 10-1734 10-708 SEQ 0224 











MXWNDW 10-1824 
N 8-128 15-314 
wh 


9-G6 15-304 
46-1154 
9-188 9-K204 
-O# 8-234% 9-51 
9-8134 9-92 
9-k8 15-444 
15-114 
8-165 9-K10 15-104 
9-855 16-12 
8-162 9-K08 15-94 
8-171 9-K02 «15-124 
4-2004 
9-423 
4-2144 
4-1384 
4-2484 9-<50 
26 9-<494 
9-241 99-2934 
6-04 
6-0 6-04 
6-0 6-04 
6-04 9-E96 
6-0 6 
4-2274 
9-K71 9-K74 
4-1654 
336 9-6484 


16-634 
10-387 10-4224 10-777 
6-04 9-C10 9-C12 


6-0# 8-73 9-5 
6-04 8-84* 8-254" 


16-184 


A attests = 
CZRMUAO RMOS/3/2 PERF EXER MACRO VO03.01 11=APR=80 14:52:06 PAGE S-16 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


9-J94* 


16-77* 16-77% 16-77% 16-77% 


9-123 9-150 9-162 9-194 
9-J98 9-K20* 9-K97* 9-L03* 





16-78* 


9-L08* 


SEQ 0225 


PARER 


9-339 


9-6784 


SEQ 0226 


: 3. 
CZRMUAO_RMOS/3/2 PERF EXER MACRO V03.01 11-APR~80 14:52:06 PAGE S-17 
CROSS REFERENCE TABLE (CREF VO1-05 ) SEQ 0227 







PARLST 8-113" 8-134 16-34 
PARQ 6-0# 
9-P41 165 


PATTEN 6-OF 9-976 9-878 16-6 
9-G41*  9=G46* 


10-435 10-487 10-603 10-924 10-953 10-993 10-=89# 
9-603 9-6344 


9-396 9-434 9-784 9-; 734 


4-81 4-814 8-78* 9-166* 9-J26* 9-083 9-084* 9-098* 9-S80  9-T82* 10-222 10-223* 10-252" 10-260+ 
10-359 =10-360* 10-413* 10-423 10-472* 10-714* 


4-814 = B-13% = B-13* = -T76% -T76® 9-T76* -9-T76* 29-T76" —-9-T 768 
1O-<35H 10-14 10-238 10-55 10-=55* 10-=75  10-=89 


0-=59 10-=61* 
O-=92* 10-=93* 10-=94 10-=96* 


28 3815-34 
4-814 8-13 8-13* 8-13* 
4-814 
9-2?734 
9-294 9-a264 
9-226 9-2384 
9-788 99-2994  9-a07 
9~-2544 
9-719 


9-644 
9-291 9-a23 9-a284 
6-04 8-214 9-717 16-8 





RD.ADP 10-317" 10-;18* 10-;204 13-3 


SEQ 0228 


CZRMUAO RMOS/3/2 PERF EXER 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


RD.RM 10-292 10-322 
10-;154 10-;68 
RD.RM1 10-;19% 10-:47 
RD.RM2 10-:15* 10=:464 
RD.RMS 10-:26 10-;38 
RD.RM4 10-;31 10-; 504 
RD.WRD 10-:214 10-:22 
RDCHR 8-124 9-565 
RDDAT 4-260 6-0 
RDHD 64-2614 6-0 
ROLIN 172 9-11 
READDR 9-192 9-519 
ADHD 9-520 9-561 
READIN 4=25 
RECAL 4=245#  9-<32 
RECALO 9-<32# 9-J76 
RECALT 9-643 9-773 
DAPK 9-J06 0 
REFMT 1844 52 
REFMTX 9-185 9-187 
RELBUF 9-169 9-=95# 
RELSE 4-247# 
REPHD 9-178 15-184 
REPLZ  9-H39 
RESREG 13283 9-523 
RESVEC 4-814 
RETRY 6-O# 9-381» 
9-580* 9-621* 
RMOS 9<15 9 9=<35 
8-60*  8-67% 
10=:41 10-:74 
RMAS 10-1934 10-327« 
RMBA  ~—=s-: 10-18 B# 
RMCS1 10-1864 10-283 
10-812 10-865 
RMCS2  10-190# 10-242« 
10-700* 10-760« 
RMDA 10-1894 10-498 
RMDB 10-1954 10-<15 
RMDC 10-2004 10-502 
RMDS 10-1914 10-323 
RMDT 10-197H 10-293 
RMEC1 10-2044 
RMEC2 10-205# 10-<25 
RMER1 9-562 9-598 
RMER2 10-2034 10- 
RMERRS 10-224 10-225 
RMHR = 10-2014 
MINIT 8-144 10-2214 
10-1944 10-716 
R1 «10-1964 
R2 «10-2024 10-969 
0 10-1994 10-320 
R 64-1544 


10-718 


10-552 


10-551 
10-; 88 


10-556 


10-575 
10-<21 


9-N68 
9-A03 


10-958* 
10-430* 
10-995 

10-379* 
10-978* 


10-904 
10-889 


10-860 


10-576 


10-589 


9-003 
9-A72 


9-629 
9-2044 


16-121 


10-580 


10-701 


9-U15# 
9-B33 


9-665 


9-H73 
10-261 


10-491* 
10-; 


10=:46 


10-; 83 
10-967* 


es a ee ee 
MACRO VO3.01 11-APR-80 14:52:06 PAGE S-18 


10-715 


16-64 
9-D49 


9-741 

9-H73 
10-407 

9-466* 


9-<93* 
10-532 


10-528 
10-511* 
10-;79 


10-968* 


10-761 


16-72 
9-G154 


9-H73 
10-410 


9-488* 
9-=05* 


10-699 


10-570 


10-533* 
10-<11* 


10-969* 


10-811 


16-107 


9-H79 
10-473 


9-493 
9-=06 


10-740 


10-590 


10-619 
10-<17 


13-2 


10-878 


16-116 


9-112 
10-686 
9-496 


9-=06 
10=:43 


10-601 


10-642 
10-<41* 


13-2 


10-888 


9-117 
10-746 


9-497 
9-F05 


10-;17 


10-616 


10-657 
10-<46 


13-2 


SEQ 0229 
10-903 10-:45 
9-122 9-04 
10-:24 10-<30 
9-497 9-533" 
10-;23  10-;27 | 

| 

10-629 10-762 | 
10-671 10-680+ | 
13-2 


RMSN 10-1984 
SEQ 0230 


RMTMR 9-145 


awa >] 


CZRMUAO RMOS/3/2 PERF EXER 
CROSS REFERENCE TABLE (CREF V01-05 ) 


10-:094 
8-68* 


9=<14 


M2 
MACRO VO3.01 11-APR~80 14:52:06 PAGE S-19 


10-1704 


10- 
10-9754 
10-869 


10-902 
10-890 
9-H324 


9-L71 
9-120 


10-454 
9-295 

10-397 
8-122 
9-H194 
9-128* 
9-N67 
9-517 

10-530* 
8-77 
9-G68 


9-173 


10-238 10-240 


9-: :13* 
9-U11 9-U13 
10-787 10-8094 


10-871 10-920 


10-912 10-9224 


10-896 10-905 
9-N72 
9-131* 9-132 


10-471 10-685 


8-130 8-137 
9-130* 
9-002 16-164 


9-607 


9-566 
10-950 10-959« 


9-175* 9-150 


10-9374 10-974 





STATPRP 9-179 9-G77# 


9-K66 


SEQ 0232 













STKLMT 4-814 
TNDAT 6-04 
STO 10-:19 
STO1 10-:514 
STO2 10-:50 
STO3 10-:70 
$TO5 10-:824 
STO6 10-:72 
ST07 10=:74 
STO8 10-:91 
STO9 10-:48 
SUMARY 9-39 
SVRH70 10-607 
Swo 4-814 
Sw0o 4-81 
Sw01 4-81 
SWwO2 4-81 
Sw03 4-81 
Sw04 4-81 
Sw0S 4-81 
SWO6 4-81 
SWwO7 4-81 
Sw08 4-81 
Swo9 4-81 
Sw 4-814 
Sw10 4-814 
SwWi1 4-814 
Sw12 4-814 
SwW13 4-814 
SW14 4-814 
SwW15 4-814 
SW2 4-814 
Sw3 4-814 
SW4 4-814 
Sw5 4-814 
SW6 4-814 
SW7 4-814 
Sw8 4-814 
Sw9 4-814 
SWR 5-04 

9-887 

9-J00 
SWREG 4-2 
SWTIM 9-239 
SYSTAT -151 
T 9-D51 
TAB.XY  4-2764 
TABLE 9-L73 
TABLEO 16-39 
TABLE1 16-42 
TABLE2 15-42 
TABLE3 16-42 
TABLES 16-42 
TABLES 16-42 


CZRMUAO RMOS/3/2 PERF ELER 
CROSS REFERENCE TABLE (CREF V01-05 ) 


9-:77 9-:83 
10-: 394 
10-:52 10=-:54 
10-: 764 
10-:844 
10-:924 
10-:984 
10-:58  10=-:67 
9-K 
10-768 10-784 
9-1 9-713 
4-814 
4-814 9-219 
4-814 8-148 
4-814 
4-814 9-A91 
4-814 9-C38 
4-814 9-A10 
4-814 9-:35 
4-814 
4-814 
9-B71 
9-B74 9-168 
9-275 9-F 33 
9-936 9-;73 
9-D32 
9-186 
8-13 8-13 
9-936 9-:35 
1 9-P41 
-13 8-14 
99-2824 
15-144 
D61 14-54 
-~0 
16-394 
16-544 
16-544 
16-544 
16-544 
16-544 
16-544 


16-544 
16-544 





9=>73 9->81 

10=:684 

10-:75 10=:79 

9-P4 

10-842 10-892 

9-J00 

9-887 

9-171 

9-061 9-P41 

9-C99 

9-F 58 

8-13* 8-13* 

9-;73 9-713 
096 9-S74 

8-51 9-S74 


10=-:81 
10-910 


8-13* 
9-A10 
9-168 
9-U05 


MACRO V03.01 11-APR~80 14:52:06 PAGE 220 


10-:83 10=-:89 
10-957 10-991 
8-14 8-51 
9-A91 9-B71 
9-168 9-168 

9-U05 


10-:96 
10-:61 


10=; 004 

10-:99 10-<07# 

9-171 9-184 9-186 
9-C38 9-C99 9-D32 
9-176 9-T76*  9-U05 





SEQ 0233 


9-219 9-275 
9-F 23 9-F58 
9-U05* 


TAP 4-1998 
SEQ 0234 


CZRMUAO RMOS/3/2 PERF EXER 


TBITVE 
TD 


THEAD 
TIMER 


TKVEC 
TPVEC 
TRAPVE 


4-814 
0-743 


10=:92* 
9-S55* 


8-13* 


9-29 
9-LO2# 
10-7914 


9-778# 
10-769 
9-457# 
6-0 
9-200 


D 3 
MACRO V03.01 11-APR~80 14:52:06 PAGE S=21 
CROSS REFERENCE TABLE (CREF v01-05 ) 


10-466* 
9-S56* 


8-13* 


8-153 
9-Q834 


10-369 
9-273 


15-84 
9-M87 

15-74 

15-54 


9-80 


10-790 


16-7 


10-610" 10-663* 
9-760 9-765 
10-638* 10-651 
1 9=P41 
8-39 8-45 
8-171 8-178 
9-248 9-260 
41 9=H49 
9-J19  9=J21 
9-M84 
7 9=N73 
9-P41 9=P41 
9-115 9-120 
9-170 T70 
9-U05 _9-U15# 
9-U15# 16-105 
9-60 9-273 
10-384* 10-567* 
9-(33 -9=P41 
9-029 9-048 
9-82 9-94 


10-755 10-873« 
9-767 9-633 
10-669* 10-678* 

9-U15# 
8-46 = 8-123 
8-180 8-181 
9-261 9-262 
9-H49 «9-57 
9-J85  9-J87 
9-MB6 9-87 
9-002 
9-P41 =P 41 
9-124 9-129 
9-170 9-170 
16-63 16-71 
16-114 
9-H35 9 J86 
10-633* 10-670« 
9-P41  — 9=P41s 
9-P41 - 9=P41 
9-132 


10-918* 


9-L69 
10-757 


9-170 
16-101 
9-K79 


10-839 


15-44 


10-961" 10-976« 
9-L74  _9-L75 
10-758" 10-:55 
8-129 8-131 
8-196 8-206 
9-268 9-269 
73 9=H73 
9-k70 9-k73 
10 9=N20 
9-027 9-028 
9-P41  9=P41 
9-135 9-137 
9-172 9-176 
16-103 16-106 
9-M88 9-030 
10-925 10-927 


10-998* 


9-U01 
16-112 
9-050 


10-946 


10-:15 


9-L98* 


10-948* 


10-:17* 


9-M47 


9-P41 


10-:64* 


SEQ 0235 


10=:80* 


9-N57 


WLE 4-1634 
SEQ 0236 


ee “> 
CZRMUAO RMO5/3/2 PERF EXER MACRO VO3.01 11-APR-80 14:52:06 PAGE S=22 
CROSS REFERENCE TABLE (CREF VO1-05 ) 





WLEER 9-348 99-7064 
WRL 4-1444 
WRT.AD 10=;64* 10=;74* 10=:774 13-4 
WRT.R1 10-;754 10-;95 
WRT.R2 10-;61% 10-;944 
WRT.R3 10-;70 10-381 10-;84 10-;90 10=-;964 
WRT.R4 10-;86 10-;984 
WRT.RS 10-;97 10-:994 
WRT.RM 10-315 10-319 10-497 10-501 10-505 10-513 10-523 10-527 10-538 10-545 
10-615 10-628 10-864 10-894 10-933 10-:614 
WRT.WD 10-;62* 10-;66 10-;73* 10-;764 13-4 
WRIDAT 4-2584 6-0 9-812 
HD 4-2594 -0 
WRTPK 8-248 9-112 9-A634 
WRTPK1  9=-A65 9-A67 9-A714 
WRTPK2 9-A70 
WRTPK3 9-A69 9-805 9-B104 
WRTPK4  9-B09 9-B154 
WRIPKS 9- 9-B174 
XWCNT 9-730 9-234 99-7874 
XXDP .. 8-19* 8-22* 8-23 8-25 8-30 8-41 8-174 8-176 8-224 
Y 15-324 
ZEROS -0 6-04 


ZROIND 6-04 9-900* 9-946* 9-952% 9-956 


10-555 


8-226 


10-569 


9-535 


10-579 


9-137 


SEQ 0237 


10-600 


9-J50 





SSCMRE 44-8224 
$$CMIM 44-8228 
SSESCA 4-814 
C$NEWT 4-814 
I$$SET 9-15 
S$SETM 8-13 
$$SKIP 4-814 
“$ACT1 4-554 
"$APTB 4-5 9# 
"$APTH = 4-59# 
“SAPTY 4-594 
"SCATC «4-564 
"SCMTA 4-56 
, 4-578 
: 4-574 
"SEOP 4-59" 
"SERRO 4-564 
"SERRT 4-564 
é 4-594 
. 4-584 
"$READ 4-554 
“$SAVE 4-574 
“$SIZE 4-574 
“STRAP 4-5 7# 
“S$TYPD 4-564 
"$TYPE 4-554 
"$TYPO 4-564 
"EQUAT 4-554 
"HEADE 4-554 
"SETUP 4-554 
"SWRHI 4-554 
"SWRLO  4-55# 
CKCHR  4-16# 
CKDIG 4-264 
CKNUM 4-394 
COMMEN 4-814 
ENDCOM 4-814 
ERENTR 9-T60# 
ERRCAL 9-U23# 





CZRMUAQ RMOS/3/2 PERF EXER 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


$3 
MACRO V03.01 11-APR-80 14:52:06 PAGE M-1 





9-U15 9-U15 9-U15 9-U15 9-U15 9-U15 

5-04 

4-65 4-66 4-67 4-69 4-71 4-76 

9-100 9-101 9-102 9-103 

9-R97 

9-N57 9-N72 9-007 

10-868 10-870 10-;32 10-;91 
9-L99 
9-M35 
9-U15 


9-U15 


9-44 
9-M39 


9-U15 


9-U15 


4-79 


9-M95 
9-N05 


9-U15 


9-U15 


9-N84 
9-174 


9-U15 


9-U154 


9-174 
9-174 


9-U154 


9-U16 


9-174 
9-174 


9-U16 


SEQ 0238 


9-176 
9-176 





; eo 3 
CZRMUAQ RMOS/3/2 PERF EXER MACRO V03.01 11-APR~80 14:52:06 PAGE M-2 
CROSS REFERENCE TABLE (CREF VO1-05 ) 


SLASH 4-814 
STARS 4-814 4-272 4-275 4-275 4-275 5-0 5-0 5-0 8-7 9-B62 
9-168 9-170 9-172 9-174 9-176 9-176 9-uU01 9-U03 9-U05 9-U05 
13 9-U15 10-14 16-85 
SWRSU 4-814 8-13 8-134 
TRMTRP 15# 9-U17 
TYPBIN 4-814 


TYPOCS 4-814 8-153 9-60 9-273 9-H35 9-586 9-K79 9-M88 9-030 9-050 
TYPTXT sores 8-28 8-39 8-45 8-46 


9-B66 
9-U05 


9=P41 


9-F 98 
9-U07 


9=-P41 


9-G02 
9-U09 


SEQ 0239 


9=P41 
9-U11 


